Ši trumpa pamoka parodys, kaip naudoti „FileSystemObject“ metodą „GetFileName“.
Gaukite failo pavadinimą naudodami „VBA FileSystemObject“
Šioje pamokoje naudojamas „FileSystemObject“. Norėdami jį naudoti, turėsite nustatyti nuorodą į VB scenarijaus vykdymo laiko biblioteką. Daugiau informacijos rasite čia.
Norėdami gauti failo pavadinimą iš bet kurio kelio, galite naudoti:
| 123456789101112 | Antrasis FSOGetFileName ()Pritemdyti failo pavadinimą kaip eilutęPritemdyti FSO kaip naują „FileSystemObject“Nustatykite FSO = CreateObject ("Scripting.FileSystemObject")„Gaukite failo pavadinimąFileName = FSO.GetFileName ("C: \ Pavyzdys kelias \ PavyzdysFailas.txt")„Gaukite failo pavadinimą be plėtinioFileNameWOExt = Kairė (FileName, InStr (FileName, ".") - 1)Pabaiga Sub |
Tada kintamasis „FileName“ išlaikys „ExampleFile.txt“ reikšmę, „FileNameWOExt“ kintamasis bus be plėtinio „ExampleFile“.
Gaukite failo pavadinimą be plėtinio
Kaip minėta aukščiau, norėdami gauti failo pavadinimą be plėtinio, naudokite šią kodo eilutę:
| 1 | FileNameWOExt = Kairė (FileName, InStr (FileName, ".") - 1) |
