Trucos de Visual Basic 6.0 Saber si un fichero existe


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

Comentarios sobre Saber si un fichero existe

Emanuel dice:

Es demasiado rústico este metodo... Forzas a que la aplicacion produzca un error.... ahora, si la aplicación crece, y se produce error por otro motivo, este metodo ya no sirve porque no podes determinar (a menos que preguntes por el numero de error), a que se debió el fallo... La forma correcta de hacerlo sería: Private Sub Form_Load() If Dir("C:\Trucos.txt") <> vbNullString Then MsgBox "El fichero existe" Else MsgBox "El fichero no existe" End If End Sub saludos!
Comentario publicado 04/03/2010 15:04:00
Dejar un comentario
Nombre:

Mail:

Web:

Comentario: