SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: laborante1 en Martes 16 de Septiembre de 2003, 17:56
-
holas mi problema es el sgte: tengo que copiar el contenido de un archivo X (ya sea ascii o binario), he
probado de forma secuencial y me ha resultado para el caso de copiar un
archivo ascii, para el caso de un archivo binario no me funciona. Creo que es
por que VB no reconoce cierto caracteres, ya que es se sale antes de terminar
el archivo. Lo otro con lo que tengo dudas es si yo abro un archivo binario
en modo secuencial existe el caracter EOF?
te mando mi supuesto codigo:)
Dim temporal$, variable$, destino$, origen$, canal%, canal2%
canal = 1
canal2 = 2
destino = "c:dodito.exe"
origen = "c:dodo.exe"
Open origen For Input As canal
Open destino For Output As canal2
Do Until EOF(canal)
Line Input #canal, temporal
variable = variable + temporal + Chr(13) + Chr(10)
Loop
Print #canal2, variable
Close (canal)
Close (canal2)
-
Hola laborante1. Échale un vistazo a este tema, creo que te puede servir http://foros.solocodigo.com/viewthread.php?tid=4723 (http://foros.solocodigo.com/viewthread.php?tid=4723)
Por otro lado creo (y si no, por favor me corrijan) que no hay ningún carácter ascii que corresponda a EOF. EOF es una FUNCIÓN que devuelve True cuando se intenta leer en un fichero y se comprueba que se ha alcanzado el final del mismo. En el caso de un archivo abierto en binario, el final del fichero vendrá dado por la longitud del fichero (LOF(número_canal)).
Espero que con esto puedas arreglar.
Suerte.
-
Existe un objeto en Visual basic que te permite hacer copias de ficheros, para poder utilizarle tienes que añadir la referencia: Microsoft Scripting Runtime.
El objecto al que me refiero es el FileSystemObject.
Te adjunto un fichero para que puedas ver lo facil que es copiar un fichero.
Saludos.