VBA Obtener Nombre de Archivo con GetFileName (FSO)

Este breve tutorial demostrará cómo utilizar el método GetFileName del FileSystemObject.

Obtener el Nombre del Archivo con VBA FileSystemObject

Esta lección utiliza el FileSystemObject. Para poder utilizarlo, necesitará establecer una referencia a la biblioteca de tiempo de ejecución del script VB.

Para obtener el nombre del archivo desde cualquier ruta, puede utilizar

Sub FSO_ObtenerNombreDeArchivo()
    Dim FileName As String
    Dim FSO As New FileSystemObject
    Set FSO = CreateObject("Scripting.FileSystemObject") 

    'Obtener el nombre del archivo
    FileName = FSO.GetFileName("C:\Ruta\ArchivoEjemplo.txt")
    
    'Obtener el nombre del archivo sin extensión
    FileNameWOExt = Left(FileName, InStr(FileName, ".") - 1)

End Sub

La variable FileName mantendrá el valor de «ArchivoEjemplo.txt», la variable FileNameWOExt será sin la extensión «ArchivoEjemplo».

Obtener el Nombre del Archivo Sin la Extensión

Como se ha indicado anteriormente, para obtener el nombre del archivo sin extensión utilice esta línea de código:

FileNameWOExt = Left(FileName, InStr(FileName, ".") - 1)