manejo de archivos en VB

zmagizz
21 de Enero del 2005
Hola a todos, mi problema es el siguiente. Quiero hacer un programilla que copie unos archivos de un directorio (dir_origen) a otro (dir_destino) que estara vacio, los archivos a copiar seran aquellos que se encuentren en otro archivo (listado_archivos.txt).
con este codigo consigo lo que quiero:

Private Sub Command2_Click()
Dim archivo As String
Open "c:\LISTADO_ARCHIVOS.txt" For Input As #1
While Not EOF(1)
Line Input #1, archivo
FileCopy "c:\dir_origen\" & archivo, "c:\dir_destino\" & archivo
Wend
Close #1
End sub
---------------------------------------------------------------
El problema es que si un elemento de la lista (listado_archivos) no existe en el "dir_origen" el programa da un error (No se ha encontrado el archivo claro) y no continua copiando hasta el final de la lista.
Como puedo hacer que si un archivo no existe, ignore el error y continue copiando los archivos de la lista.

GRacias y un saludo

mvallejos
21 de Enero del 2005
Usando la función Dir

Ejemplo

If Dir(Archivo) = "" Then
Msgbox "El Archivo no existe"
end if

Si dos te retorna distinto de cadena nula, haces la copia correspondiente, sino, la omites

Saludos