'*********** Código ***************
'
' FilePath
'
' Función que devuelve la ruta del
' archivo que se le pase como argumento
' (no comprueba si ese archivo existe).
'
' Por ejemplo:
'
'   Debug.Print FilePath("c:\ruta\mibd.mdb")
'
' devolverá:
'
'   "c:\ruta"
'
' Autor: Juan M. Afán de Ribera
' Fecha: Junio 2003
'
Function FilePath(fName As String) As String
Dim fso As Object

    Set fso = CreateObject("Scripting.FileSystemObject")
    FilePath = fso.GetParentFolderName(fName)
    Set fso = Nothing
    
End Function
'********** Fin código ***********

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)