Spisie treści
Ten krótki samouczek zademonstruje, jak używać metody GetFileName obiektu FileSystemObject.
Pobierz nazwę pliku z VBA FileSystemObject
Ta lekcja wykorzystuje obiekt FileSystemObject. Aby z niego skorzystać, musisz ustawić odwołanie do biblioteki wykonawczej skryptu VB. Zobacz tutaj, aby uzyskać więcej informacji.
Aby uzyskać nazwę pliku z dowolnej ścieżki, możesz użyć:
| 123456789101112 | Sub FSOGetFileName()Dim nazwa pliku jako ciągDim FSO jako nowy obiekt systemu plikówUstaw FSO = CreateObject("Scripting.FileSystemObject")'Pobierz nazwę plikuFileName = FSO.GetFileName("C:\ŚcieżkaPrzykładowa\PlikPrzykładowy.txt")'Pobierz nazwę pliku bez rozszerzeniaNazwaPlikuWOExt = Left(NazwaPliku, InStr(NazwaPliku, ".") - 1)Napis końcowy |
Zmienna FileName będzie wtedy przechowywać wartość „ExampleFile.txt”, zmienna FileNameWOExt będzie bez rozszerzenia „ExampleFile”.
Pobierz nazwę pliku bez rozszerzenia
Jak wspomniano powyżej, aby uzyskać nazwę pliku bez rozszerzenia, użyj tego wiersza kodu:
| 1 | NazwaPlikuWOExt = Left(NazwaPliku, InStr(NazwaPliku, ".") - 1) |
