Palabras clave: FilePath, ruta, path, fichero, archivo, WSH
Autor: Juan M. Afán de Ribera (Happy) / Junio 2003
Extraído de: La web del Búho
Objetivo:
Función que devuelve la ruta del archivo que se le pase como argumento (no comprueba si ese archivo existe)
'*********** 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 ***********
