Tento krátký návod předvede, jak použít metodu GetFileName systému FileSystemObject.
Získejte název souboru pomocí VBA FileSystemObject
Tato lekce používá FileSystemObject. Abyste jej mohli používat, budete muset nastavit odkaz na knihovnu run-time skriptu VB. Další informace naleznete zde.
Pro získání názvu souboru z jakékoli cesty můžete použít:
| 123456789101112 | Sub FSOGetFileName ()Dim FileName as StringDim FSO jako nový FileSystemObjectNastavit FSO = CreateObject ("Scripting.FileSystemObject")„Získejte název souboruNázev souboru = FSO.GetFileName ("C: \ ExamplePath \ ExampleFile.txt")„Získat název souboru bez příponyFileNameWOExt = Left (FileName, InStr (FileName, ".") - 1)End Sub |
Proměnná FileName pak udrží hodnotu „ExampleFile.txt“, proměnná FileNameWOExt bude bez přípony „ExampleFile“.
Získejte název souboru bez přípony
Jak bylo uvedeno výše, pro získání názvu souboru bez přípony použijte tento řádek kódu:
| 1 | FileNameWOExt = Left (FileName, InStr (FileName, ".") - 1) |
