Ovaj kratki vodič će pokazati kako se koristi metoda GetFileName za FileSystemObject.
Dobijte naziv datoteke s VBA FileSystemObject
Ova lekcija koristi FileSystemObject. Da biste ga mogli koristiti, morat ćete postaviti referencu na biblioteku vremena izvođenja VB skripte. Za više informacija pogledajte ovdje.
Za dobivanje naziva datoteke s bilo koje staze možete koristiti:
| 123456789101112 | Pod FSOGetFileName ()Dim FileName As StringZatamnite FSO kao novi FileSystemObjectPostavi FSO = CreateObject ("Scripting.FileSystemObject")'Dohvati naziv datotekeIme datoteke = FSO.GetFileName ("C: \ ExamplePath \ ExampleFile.txt")'Dohvati naziv datoteke bez proširenjaFileNameWOExt = Lijevo (FileName, InStr (FileName, ".") - 1)Kraj podm |
Varijabla FileName tada će imati vrijednost "ExampleFile.txt", varijabla FileNameWOExt bit će bez nastavka "ExampleFile".
Dobijte naziv datoteke bez proširenja
Kao što je gore napomenuto, da biste dobili naziv datoteke bez proširenja, koristite ovaj redak koda:
| 1 | FileNameWOExt = Lijevo (FileName, InStr (FileName, ".") - 1) |
