Tento krátky návod ukáže, ako používať metódu GetFileName systému FileSystemObject.
Získajte názov súboru pomocou VBA FileSystemObject
Táto lekcia používa FileSystemObject. Aby ste ho mohli používať, budete musieť nastaviť odkaz na run-time knižnicu VB skriptov. Ďalšie informácie nájdete tu.
Na získanie názvu súboru z ľubovoľnej cesty môžete použiť:
| 123456789101112 | Sub FSOGetFileName ()Dim FileName as StringDim FSO ako nový FileSystemObjectNastaviť FSO = CreateObject ("Scripting.FileSystemObject")„Získajte názov súboruFileName = FSO.GetFileName ("C: \ ExamplePath \ ExampleFile.txt")„Získajte názov súboru bez príponyFileNameWOExt = vľavo (FileName, InStr (FileName, ".") - 1)Koniec pod |
Premenná FileName potom udrží hodnotu „ExampleFile.txt“, premenná FileNameWOExt bude bez prípony „ExampleFile“.
Získajte názov súboru bez prípony
Ako je uvedené vyššie, na získanie názvu súboru bez prípony použite tento riadok kódu:
| 1 | FileNameWOExt = vľavo (FileName, InStr (FileName, ".") - 1) |
