Public Sub Copiar(byval Origen as string, byval Destino as string) As Boolean
On Error goto Err_Copiar
Dim iCanalI as Integer
Dim iCanalO as integer
iCanalI = FreeFile
Open Origen For Binary As iCanalI
iCanalO = FreeFile
Open Destino For Binary As iCanalO
Dim byt1() As Byte
Redim byt1(LOF(iCanalI))
Get iCanalI, ,byt1
Put iCanalO, ,byt1
Copiar = True
Exit_Copiar:
On Error Resume Next
Close iCanalI
Close iCanalO
Exit Function
Err_Copiar:
MsgBox Err.Description, vbcritical,"Copiar"
End Function