Este breve tutorial demonstrará como usar o método GetFileName do FileSystemObject.
Obtenha o nome do arquivo com VBA FileSystemObject
Esta lição usa o FileSystemObject. Para usá-lo, você precisará definir uma referência para a biblioteca de tempo de execução do script VB. Veja aqui para mais informações.
Para obter o nome do arquivo de qualquer caminho, você pode usar:
| 123456789101112 | Sub FSOGetFileName ()Dim FileName As StringDim FSO As New FileSystemObjectDefina FSO = CreateObject ("Scripting.FileSystemObject")'Obter o nome do arquivoFileName = FSO.GetFileName ("C: \ ExamplePath \ ExampleFile.txt")'Obter nome de arquivo sem extensãoFileNameWOExt = Left (FileName, InStr (FileName, ".") - 1)End Sub |
A variável FileName terá então o valor de “ExampleFile.txt”, a variável FileNameWOExt não terá a extensão “ExampleFile”.
Obter nome de arquivo sem extensão
Conforme observado acima, para obter o nome do arquivo sem extensão, use esta linha de código:
| 1 | FileNameWOExt = Left (FileName, InStr (FileName, ".") - 1) |
