Съдържание
Този кратък урок ще покаже как да използвате метода GetFileName на FileSystemObject.
Вземете име на файл с VBA FileSystemObject
Този урок използва FileSystemObject. За да го използвате, ще трябва да зададете препратка към библиотеката по време на изпълнение на VB скрипта. Вижте тук за повече информация.
За да получите името на файла от всеки път, можете да използвате:
| 123456789101112 | Sub FSOGetFileName ()Dim FileName As StringЗатъмнете FSO като нов FileSystemObjectЗадайте FSO = CreateObject ("Scripting.FileSystemObject")„Вземете името на файлаFileName = FSO.GetFileName ("C: \ ExamplePath \ ExampleFile.txt")„Вземете име на файл без разширениеFileNameWOExt = Вляво (FileName, InStr (FileName, ".") - 1)End Sub |
Променливата FileName след това ще държи стойността на „ExampleFile.txt“, променливата FileNameWOExt ще бъде без разширението „ExampleFile“.
Вземете име на файл без разширение
Както бе отбелязано по -горе, за да получите името на файла без разширение, използвайте този ред код:
| 1 | FileNameWOExt = Вляво (FileName, InStr (FileName, ".") - 1) |
