Para determinar si un fichero existe:

Private Sub Form_Load()
On Error GoTo Fallo
x = GetAttr("C:\Trucos.txt")
MsgBox "El fichero existe"
Exit Sub
Fallo:
MsgBox "El fichero no existe"
End Sub

Regístrate y recibe un email semanal con los últimos trucos informáticos. Pulsa aquí!!

Este truco ha recibido 3 votaciones| Nota media: 3Selecciona tu Puntuación: