ファイル名を取得する

2019年6月24日2021年8月22日

GetFileName関数

引数のファイルパスからファイル名を取得する関数。
※ ShowErrorMessage関数についてはリンク先をご参照ください。

'==================================================
' <summary>
' ファイル名を取得する
' </summary>
' <param name="filePath">ファイルパス</param>
' <returns>ファイル名</returns>
'==================================================
Public Function GetFileName(ByVal filePath As String) As String

    On Error GoTo Catch

    GetFileName = ""

    With CreateObject("Scripting.FileSystemObject")
        GetFileName = .GetFileName(filePath)
    End With

    Exit Function

Catch:
    Call ShowErrorMessage("getFileName")

End Function

実行方法

'==================================================
' <summary>
' GetFileName関数のテスト
' </summary>
'==================================================
Sub TestGetFileName()

    Dim result As String

    result = GetFileName("C:\Test\aaa.txt")

    MsgBox result

End Sub

実行結果