Comprobar si existe un archivo

[{_The_Alwar_}]

¿Como puedo comprobar si existe un archivo?

[5v5]

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.......

[programatrix]

Usa visual basic script:
Set Fso = CreateObject("Scripting.FileSystemObject")
If (Fso.FileExists("C:\autoexec.bat" ) ) Then
MsgBox "El archivo existe."
End If

[BenRu]

Código [Seleccionar] Expandir

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



[{_The_Alwar_}]

mmm me gusto el metodo de reydelmundo, el de dir$ ese, no lo entiendo o no me va.... de todas formas muchas gracias

[sch3m4]

Puedes usar también FileLen()

[Slasher-K]

Las siguientes funciones nunca fallan y sirven una para saber si existe un archivo, y otra para saber si existe un directorio.

Código [Seleccionar] Expandir


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.