Como verificar si un fichero existe

Iniciado por ANTRAX, Julio 26, 2010, 10:24:01 AM

Tema anterior - Siguiente tema

0 Miembros y 2 Visitantes están viendo este tema.

Julio 26, 2010, 10:24:01 AM Ultima modificación: Julio 08, 2011, 10:05:02 AM por ANTRAX
Código: vb
Public Sub  VerificarFichero(sNombreFichero As String)
On Error Resume Next
Open sNombreFichero For Input As #1
If Err Then
MsgBox ("El fichero " & sNombreFichero & " no existe.")
Exit Sub
End If
Close #1
End Sub


en un botton:

VerificarFichero "c:\prueba.txt"

Código: vb
Dim Archivo As String
Archivo = "C:\MiTexto.txt"
If Dir(Archivo, vbArchive) = "" Then
MsgBox "El Fichero No Existe"
End If