'*********** 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 ***********