ファイル名操作マクロ

Excelのマクロでファイル名を操作するため.NET風の名前の関数を作りました。単純なものですが私はよく使うので、参考までにパブリックドメインで公開します。

Function Path_GetFileName$(A$)
    Dim P%
    P = InStrRev(A, "\")
    If P > 0 Then
        Path_GetFileName = Mid(A, P + 1)
    Else
        Path_GetFileName = A
    End If
End Function

Function Path_GetDirectoryName$(A$)
    Dim P%
    P = InStrRev(A, "\")
    If P > 3 Then
        Path_GetDirectoryName = Left(A, P - 1)
    Else
        Path_GetDirectoryName = A
    End If
End Function

Function Path_Combine$(A$, B$)
    If Right(A, 1) = "\" Then
        Path_Combine = A & B
    Else
        Path_Combine = A & "\" & B
    End If
End Function

Function File_Exists(F$) As Boolean
    Dim FL&
    On Error GoTo ERROR
    FL = FileLen(F)
    On Error GoTo 0
    File_Exists = True
    Exit Function
ERROR:
    On Error GoTo 0
    File_Exists = False
End Function