Es facil. Para saber si existe un archivo, puedes utilizar la orden Dir$. Este es un ejemplo.
Create un nuevo proyecto e inserta un CommandButton en el formulario. Escribe esto en el evento Click del boton:
Dim sNombreArchivo As String
sNombreArchivo = Dir$("c:\config.sys")
Do While sNombreArchivo <> ""
MsgBox "Se a encontrado el archivo"
sNombreArchivo = Dir$
Loop
MsgBox "No se a encontrado el archivo"
Cuando lo veas, se que el codigo no va a estar tabulado pero es facil de entender.
Esta es la linea imortante:
sNombreArchivo = Dir$("c:\config.sys")
donde dice: Dir$("c:\config.sys") es el nombre del archivo con su ruta completa que quieras buscar...El programa buscará en todo el disco raiz.
En este ejemplo, puede que el programa te diga que si encontro el archivo, por que el archivo Config.sys esta en la mayoria de las PCs, pero, trata de poder otro nombre de archivo que no tengas, para que veas que funciona el codigo.
Tambien puedes buscar archivos por sus extenciones.
Reescribe, en el codigo que te di al principio, la linea:
sNombreArchivo = Dir$("c:\config.sys")
y cámbiala por esta:
sNombreArchivo = Dir$(".txt")
y el programa te buscará todos los archivos de texto (con la extencion .txt)
Espero que te sirva....
