Verificar si un fichero existe

Esta función nos permitirá conocer si un determinado fichero existe en la ubicación especificada. La función recibira cómo parámetro la ruta y el nombre del fichero y devolverá verdadero en caso de que éste exista o falso en caso contrario.

El código de la función es el siguiente:

Private Function FileExists(strFilename As String) As Boolean

' Comprobamos si existe el fichero existe
If Dir(strFilename) = "" Then
FileExists = False
Else
FileExists = True
End If

End Function