Duda con LoadResData

[Krnl64]

Hola a todos.

Veran, resulta que le he agregado 1 fichero de recursos a mi proyecto.

El fichero de recursos contiene 1 TXT y 1 ZIP y para poder extraerlos tengo copiarlos a una matriz byte y de ahi a 1 fichero.

Si no los copio a la matriz byte, los ficheros me dan error.

Es posible que me ahorre el copiarlos a la matriz byte ?

Gracias

[Krnl64]

Gracias por la ayuda Sergi

[/color]
Le podian haber hecho algo de caso a este post pero weno.

No obstante como ya solucione mi duda les dejare 1 code para que les sirva de orientacion:

Código [Seleccionar] Expandir


''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