ファイルパスからファイル名を取り出す案

'ファイルパス、ファイル名＋拡張子の状態からファイル名だけを取り出す処理。
'[\]でSplitをかけて最後を取得、[.]でSplitをかけて最初を取得すればOK
Function getFileName(file_path) As String

    Dim temp As String
    Dim tmp_array2 As Variant, tmp_array1 As Variant

    tmp_array1 = Split(file_path, "\")
    temp = tmp_array1(UBound(tmp_array1))
    If temp = "" Then Exit Function
    tmp_array2 = Split(temp, ".")
    temp = tmp_array2(LBound(tmp_array2))
    getFileName = temp '戻り値

End Function