VBA – Obter Nome do Arquivo com GetFileName (FSO)

Este breve tutorial demonstrará como usar o método GetFileName do FileSystemObject.

Obter Nome de Arquivo com FileSystemObject do VBA

Esta lição usa o FileSystemObject. Para usá-lo, você precisará definir uma referência à biblioteca Microsoft Scripting Runtime.

Para obter o nome do arquivo de qualquer caminho, você pode usar:

Sub ExemploFSOGetFileName()
    Dim NomeArquivo As String
    Dim FSO As New FileSystemObject
    Set FSO = CreateObject("Scripting.FileSystemObject") 

    'Obter o nome do Arquivo
    NomeArquivo = FSO.GetFileName("C:\PastaExemplo\ArquivoExemplo.txt")
    
    'Obter apenas o nome do arquivo sem extensão
    NomeArquivoSemExt = Left(NomeArquivo, InStr(NomeArquivo, ".") - 1)

End Sub

A variável NomeArquivo manterá o valor de “ArquivoExemplo.txt”, e a variável NomeArquivoSemExt estará sem a extensão “NomeArquivo”.

Obter o Nome do Arquivo sem a Extensão

Conforme observado acima, para obter o nome do arquivo sem a extensão, use esta linha de código:

NomeArquivoSemExt = Left(NomeArquivo, InStr(NomeArquivo, ".") - 1)