拡張子を除くファイル名を取得する

2021年8月22日

GetFileNameWithoutExtension関数

引数のファイルパスから拡張子を除くファイル名を取得する関数。
ShowErrorMessage関数についてはリンク先をご参照ください。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'==================================================
' <summary>
' 拡張子を除くファイル名を取得する
' </summary>
' <param name="filePath">ファイルパス</param>
' <returns>拡張子を除くファイル名</returns>
'==================================================
Public Function GetFileNameWithoutExtension(ByVal filePath As String) _
        As String
 
    On Error GoTo Catch
 
    GetFileNameWithoutExtension = ""
 
    With CreateObject("Scripting.FileSystemObject")
        GetFileNameWithoutExtension = .GetBaseName(filePath)
    End With
 
    Exit Function
 
Catch:
    Call ShowErrorMessage("GetFileNameWithoutExtension")
 
End Function

実行方法

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'==================================================
' <summary>
' GetFileNameWithoutExtension関数のテスト
' </summary>
'==================================================
Sub TestGetFileNameWithoutExtension()
 
    Dim result As String
 
    result = GetFileNameWithoutExtension("C:\Test\aaa.txt")
 
    MsgBox result
 
End Sub

実行結果