Funciones y Rutinas útiles sobre Visual Basic
Visual Basic
Publicado el 21 de Enero del 2001 por Rodrigo Gracia
31.735 visualizaciones desde el 21 de Enero del 2001
Si alguno de los archivos de descarga no funciona, comentanos aquí el error.
Comentarios... (2)
Dices que para comprobar si un fichero existe se utiliza dir([nombreFichero])
El problema es que si, por ejemplo, el fichero está oculto no se devuelve nada.
Por eso, creo que es mejor utilizar:
Public Function FileExiste(vFile As String) As Boolean
On Error Resume Next
Dim vL#
vL = FileLen(vFile)
If Err > 0 Then
FileExiste = False
Err.Clear
Else
FileExiste = True
End If
On Error GoTo 0
End Function
Gracias