Autor Tema: FileName  (Leído 2245 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 214
FileName
« en: Octubre 10, 2012, 02:24:48 pm »
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).

Cita de: quien
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 ***********