''Coded by Krnl64

Public Function Volcar(NombreRecurso As String, Tipo As String, Ruta As String)
'' Ejemplo 
''y =Volcar("pepe.rar", "rar", "C:\")
''----------------------------------------
Dim matrix() As Byte
Dim camino As String
Dim id As Integer
id = FreeFile
camino = Ruta & NombreRecurso
matrix = LoadResData(NombreRecurso, Tipo)
Open camino For Binary As id
Put #id, , matrix
Close #id
exit function
err:
msgbox "Ha habido 1 error y el fichero no se ha volcado",vbCritical,"Dump"
End Function