【VBA】拡張子を除いたファイル名を取得(GetBaseName)

FileSystemObjectのGetBaseNameメソッドについてです。

GetBaseNameメソッド

指定したファイルの拡張子を除いたファイル名を返します。

FileSystemObject.GetBaseName(path)

引　数	必須 / 省略可	詳　細
ファイルパス (path)	必須	・ファイルパスを指定。

拡張子を除いたファイル名を取得。

Sub test()

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'拡張子を除いたファイル名aaaを取得できます。

Debug.Print fso.GetBaseName("D:\FSO\Folder1\aaa.csv")

End Sub

【結果】

aaa

指定したフォルダー内の拡張子を除いたファイル名を全取得。

Sub test2()

Dim fso As Object, fc As Object

Dim f As File

Set fso = CreateObject("Scripting.FileSystemObject")

Set fc = fso.GetFolder("D:\FSO\Folder1").Files

For Each f In fc

'GetBaseName (パス)で拡張子を除いた全ファイルを取得

Debug.Print fso.GetBaseName(f.path)

End Sub

【結果】

指定したフォルダー内の拡張子を除いたファイル名が全取得できます。