İçindekiler
Bu kısa öğretici, FileSystemObject'in GetFileName yönteminin nasıl kullanılacağını gösterecektir.
VBA FileSystemObject ile Dosya Adını Alın
Bu ders FileSystemObject'i kullanır. Kullanmak için VB komut dosyası çalışma zamanı kitaplığına bir başvuru ayarlamanız gerekir. Daha fazla bilgi için buraya bakın.
Dosya adını herhangi bir yoldan almak için şunları kullanabilirsiniz:
| 123456789101112 | Alt FSOGetFileName()Dosya Adını Dize Olarak KarartFSO'yu Yeni FileSystemObject Olarak DimFSO'yu ayarla = CreateObject("Scripting.FileSystemObject")'Dosya Adını AlDosyaAdı = FSO.GetFileName("C:\ÖrnekYol\ÖrnekFile.txt")'Dosya Adını Uzantısız AlDosyaAdıWOExt = Sol(DosyaAdı, InStr(DosyaAdı, ".") - 1)Alt Bitiş |
FileName değişkeni daha sonra “ExampleFile.txt” değerini tutacaktır, FileNameWOExt değişkeni “ExampleFile” uzantısı olmadan olacaktır.
Uzantısız Dosya Adını Al
Yukarıda belirtildiği gibi, dosya adını uzantısız almak için bu kod satırını kullanın:
| 1 | DosyaAdıWOExt = Sol(DosyaAdı, InStr(DosyaAdı, ".") - 1) |
