Tema: FAQ's de VB6
Ver Mensaje Individual
  #115 (permalink)  
Antiguo 12/01/2006, 09:16
Avatar de Mapachita2807
Mapachita2807
 
Fecha de Ingreso: enero-2006
Mensajes: 15
Antigüedad: 18 años, 2 meses
Puntos: 0
Cita:
Iniciado por hmtech
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

Modificado por RootK
ok, eso es si tienes la ruta del fichero (archivo), pero y si no la tienes, entonces... ¿cómo le haces?