VBA ファイルシステムオブジェクト・GetBaseName

■Pathで表されるパスからベース名を所得するベース名はファイル拡張子を除く

Function GetBaseName(Path As String) As String

VBA FileSystemObjectの主なプロパティとメソッド - ray88’s diary