Ta kratka vadnica bo pokazala, kako uporabiti metodo GetFileName za FileSystemObject.
Pridobite ime datoteke z VBA FileSystemObject
Ta lekcija uporablja FileSystemObject. Če ga želite uporabiti, morate nastaviti sklic na knjižnico časa izvajanja skripta VB. Za več informacij glejte tukaj.
Če želite dobiti ime datoteke s katere koli poti, lahko uporabite:
| 123456789101112 | Sub FSOGetFileName ()Zatemni ime datoteke kot nizZatemni FSO kot nov datotečni sistemObjektNastavite FSO = CreateObject ("Scripting.FileSystemObject")'Pridobite ime datotekeFileName = FSO.GetFileName ("C: \ ExamplePath \ ExampleFile.txt")'Pridobite ime datoteke brez razširitveFileNameWOExt = Levo (FileName, InStr (FileName, ".") - 1)End Sub |
Spremenljivka FileName bo nato imela vrednost »ExampleFile.txt«, spremenljivka FileNameWOExt bo brez razširitve »ExampleFile«.
Pridobite ime datoteke brez razširitve
Kot je navedeno zgoraj, za pridobitev imena datoteke brez razširitve uporabite to vrstico kode:
| 1 | FileNameWOExt = Levo (FileName, InStr (FileName, ".") - 1) |
