FileName

[xavi]

Palabras clave: FileName, nombre, fichero, archivo
Autor: Juan M. Afán de Ribera (Happy) / Junio 2003
Extraído de: La web del Búho

Objetivo:
Función que devuelve el nombre del archivo que se le pase como argumento (no comprueba si ese archivo existe).

Lo que dice

Código: [Seleccionar]


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

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