ファイルパス名からファイル名を取出し

＜分類：値抜き取り＞
＜使用例：ファイルパスからファイル名取出し＞
＜プログラム例＞

Sub 使用例()
   Dim s As String
   Dim s2 As String
   
   s = "C:\Users\aaa\Desktop\test.xls"

   s2 = 共通_ファイルパスからファイル名取出し(s)

   MsgBox ("ファイル名は " & s2 & " です")

End Sub

Function 共通_ファイルパスからファイル名取出し(p1)

   Dim j As Long
   Dim x As Long
   
   Dim mojisu As Long
   
   共通_ファイルパスからファイル名取出し = ""
   mojisu = Len(p1)
   
   For j = mojisu To 1 Step -1
       If Mid(p1, j, 1) = "\" Then
          共通_ファイルパスからファイル名取出し = Mid(p1, j + 1, mojisu - 1)
          Exit For
       End If
   Next j

End Function