• Domingo 22 de Diciembre de 2024, 07:56

Autor Tema:  Re: manejo de archivos en VB  (Leído 1376 veces)

laborante1

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Re: manejo de archivos en VB
« en: Martes 16 de Septiembre de 2003, 17:56 »
0
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)

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: manejo de archivos en VB
« Respuesta #1 en: Martes 16 de Septiembre de 2003, 18:32 »
0
Hola laborante1. Échale un vistazo a este tema, creo que te puede servir 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.

ROBER.29

  • Miembro MUY activo
  • ***
  • Mensajes: 421
    • Ver Perfil
    • http://www.contrapixel.com
manejo de archivos en VB
« Respuesta #2 en: Martes 16 de Septiembre de 2003, 18:37 »
0
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.
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.
Roberto García
Moderador de Visual Basic.
Gerente
[contra]PixeL S.L.
Valladolid