Acest scurt tutorial va arăta cum să utilizați metoda GetFileName a FileSystemObject.
Obțineți numele fișierului cu VBA FileSystemObject
Această lecție folosește FileSystemObject. Pentru a-l utiliza, va trebui să setați o referință la biblioteca de execuție a scriptului VB. Vedeți aici pentru mai multe informații.
Pentru a obține numele fișierului din orice cale, puteți utiliza:
| 123456789101112 | Sub FSOGetFileName ()Dim Numele fișierului ca șirDim FSO ca nou FileSystemObjectSetați FSO = CreateObject ("Scripting.FileSystemObject")„Obțineți numele fișieruluiFileName = FSO.GetFileName ("C: \ ExamplePath \ ExampleFile.txt")„Obțineți numele fișierului fără extensieFileNameWOExt = Stânga (FileName, InStr (FileName, ".") - 1)Sfârșitul Sub |
Variabila FileName va deține apoi valoarea „ExampleFile.txt”, variabila FileNameWOExt va fi fără extensia „ExampleFile”.
Obțineți numele fișierului fără extensie
După cum sa menționat mai sus, pentru a obține numele fișierului fără extensie, utilizați această linie de cod:
| 1 | FileNameWOExt = Stânga (FileName, InStr (FileName, ".") - 1) |
