Autor Tema: Leer Archivo Binario (Leído 2041 veces)

martin campos quintero · « **en:** Jueves 24 de Febrero de 2005, 08:53 »

Hola amigos.

Ahora tengo otra duda

y es que quiero copiar archivos en forma binaria porque los .exe, .com o similares solo se pueden copiar en forma binaria y quiero saber como hacerlo en visual basic. Espero me puedan proporcionar algo de código. De antemando gracias

Brroz

Hola.

¿Y no podrías utilizar FileCopy en vez de complicarte la vida?

De todas formas se puede hacer abriendo origen y destino como binary y leer de un lado y escribir en otro. Resumidamente algo así:

Código: Text

 
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,&#34;Copiar&#34;
End Function
 
 

A este simple código convendría añadirle comprobación de la existencia de los archivos y si el tamaño del archivo a copiar es muy grande implementar un buffer realizando varias lecturas y escrituras... de todas formas yo no me complicaría lo más mínimo y usaría el método FileCopy.

Suerte.

martin campos quintero

Sip, es más fácil con FileCopy, pero yo lo que quiero es leer el archivo en una PC y escribirlo en otra PC, por eso necesito pasar byte por byte con el winsock

fap1603

Hola, abrelo como binario, y lo que haces es cojer byte por byte, pero lo pasas en codigo ascii, es mucho mejor y mas rapido, ademas de que te sirve con cualquier archivo. Recuerda que debes abrir en modo binario tb el fichero destino, y esribir el caraqcter ascii impreso.

Leer : byte # = 32 ---------> donde 32 es el codigo ascii del espacio.
Escribir: byte # = (espacio) ---------> donde espacio es la representacion de numero ascii (32). Suerte.

SoloCodigo

Autor Tema: Leer Archivo Binario (Leído 2041 veces)

martin campos quintero

Leer Archivo Binario

Brroz

Re: Leer Archivo Binario

martin campos quintero

Re: Leer Archivo Binario

fap1603

Re: Leer Archivo Binario