Pregunta:
Como verificar si un fichero existe?
Resuesta:
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"
Version corregida por David el Grande y GeoAvila:
Código:
Dim Archivo As String
Archivo = "C:\MiTexto.txt"
If Dir(Archivo, vbArchive) = "" Then
MsgBox "El Fichero No Existe"
End If