¿Como puedo comprobar si existe un archivo?
Espero te sirva esto,
Dir$("nobre del archivo")
este comando te permite comprobar si un archivo existe en determinada carpeta o en la que se encuentra por defaul tu .exe, en la parte donde dice "nombre archivo" puedes colocar la ruta completa...por ejemplo;
msgbox(dir$("c:\*.txt")) ......aqui te manda el primer .txt que encuentre en la unidad c:..., si tu quieres que te aparescan todos los .txt, por ejemplo, haces un ciclo y listo........
bueno espero te sirva y tambien espero no te haya revuelto..... si tienes dudas aqui estamos para echarle la mano a quien lo necesite...... y tambien para que nos echen la mano.......
Usa visual basic script:
Set Fso = CreateObject("Scripting.FileSystemObject")
If (Fso.FileExists("C:\autoexec.bat" ) ) Then
MsgBox "El archivo existe."
End If
Private Sub Form_Load()
On Error GoTo Fallo
x = GetAttr("C:\Autoexec.bat")
MsgBox "El fichero existe."
Exit Sub
Fallo:
MsgBox "El fichero no existe."
End Sub
mmm me gusto el metodo de reydelmundo, el de dir$ ese, no lo entiendo o no me va.... de todas formas muchas gracias
Puedes usar también FileLen()
Las siguientes funciones nunca fallan y sirven una para saber si existe un archivo, y otra para saber si existe un directorio.
Function IsFile(ByVal Filename As String) As Boolean
On Error Resume Next
IsFile = (GetAttr(Filename) And Not vbDirectory)
End Function
Function IsDir(ByVal sDir As String) As Boolean
On Error Resume Next
If sDir = vbNullString Then Exit Function
IsDir = ((GetAttr(sDir) And vbDirectory) = vbDirectory)
End Function
Saludos.