Enlaces patrocinados:

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

Nino Jesús Rodriguez Quispe dice:

Coincido con Emanuel, el método hace que la aplicación reaccione frente al error (un ejemplo muy simple seria; "Si te dan un manotazo en la cara; entonces es que hubo alguien delante tuyo", jijijiji; es decir tuviste que sentir ese manotazo; pudiendo ver antes de dirigirte hacia adelante...) Existen mas formas de como saber si existe un fichero o una dirección... uno de los mas fáciles que se puede implementar es: If File.Exists("D:\DataFiles\Clientes\Fotos\454151.jpeg") Then Messagebox.show("El fichero existe")
Comentario publicado 03/11/2010 20:44:00

gabo dice:

que bien Emanuel tu solucion esta excelente busque mucho en internet y el tuyo fue el q mejor me parecio es facil y sencillo y no es complicado y gracias por el codigo
Comentario publicado 23/02/2011 4:02:00
Dejar un comentario

Nombre:

Mail:

Web:

Comentario:

Código de seguridad

Captcha

Inserta el código de seguridad