Instr関数・InstrRev関数は文字列を検索する。ファイルパス取得に威力

Option Explicit

Sub Instr関数サンプル1()
    Dim TestSent As String
    Dim SeaWord As String
    Dim CoNo As Long
        TestSent = Range("C2")
        SeaWord = Range("C3")
'Instr関数で存在を検索する
        CoNo = InStr(TestSent, SeaWord)
        If CoNo <> 0 Then
            MsgBox True & " 検索ワード " & SeaWord & _
                      " は文章内にあります。"
        Else
            MsgBox False & " 検索ワード " & SeaWord & _
                      " は文章内にありません。"
        End If
End Sub

Sub InstrRev関数サンプル2()
    Dim MyPass, Fname As String
    Dim n As Long
        MyPass = "C:\Users\owner\Documents\sample.xlsx"
'文字列の右から数えて最初の「\」の位置を調べる
        n = InStrRev(MyPass, "\")
'Len関数で文字列の全体の文字数を数えている
'Right関数で文字列の右から必要数の文字を切り取る
        Fname = Right(MyPass, Len(MyPass) - n)
        MsgBox "ファイル名は　" & Fname
End Sub

Sub Instr関数サンプル2()
    Dim MyPass, Fname As String
    Dim n As Long
        MyPass = "C:\Users\owner\Documents\sample.xlsx"
'MyPassの中に「\」記号が無くなるまでループします
        Do Until InStr(MyPass, "\") = 0
            n = InStr(MyPass, "\")
            MyPass = Mid(MyPass, n + 1)
        Loop
        MsgBox "ファイル名は　" & MyPass
End Sub

Sub Instr関数サンプル3()
    Dim MyPassD, MyPass As String
    Dim No() As Long
    Dim n, p, r As Long
    Dim kazu As String
        MyPassD = "C:\Users\owner\Documents\sample.xlsx"
        MyPass = "C:\Users\owner\Documents\sample.xlsx"
'「\」記号が全部でいくつあるかを計算します
        p = Len(MyPass) - Len(Replace(MyPass, "\", ""))
'配列変数を再定義します
        ReDim No(p)
        r = 0
        For n = 1 To p
'「\」記号がいくつ目にあるかを調べます
            r = InStr(MyPass, "\")
            If r = 0 Then
                Exit For
            Else
'「\」が見つかった位置の文字数を配列の要素として代入します
                No(n) = r
'次の「\」を見つけるために文字列を修正します。
                MyPass = Mid(MyPass, r + 1)
                kazu = kazu & No(n) & ","
            End If
        Next n
        MsgBox "この絶対パスは、" & vbCrLf & _
                    "￥記号は " & kazu & "番目にあります" & vbCrLf & _
                Left(MyPassD, No(1) - 2) & vbCrLf & _
                Mid(MyPassD, No(1) + 1, No(2) - 1) & vbCrLf & _
                Mid(MyPassD, No(1) + No(2) + 1, No(3) - 1) & vbCrLf & _
                Mid(MyPassD, No(1) + No(2) + No(3) + 1, _
                                           No(4) - 1) & vbCrLf & _
                Right(MyPassD, Len(MyPassD) - No(1) - No(2) _
                                     - No(3) - No(4)) & vbCrLf & _
                    "のフォルダ・ファイル構成になっています。"
End Sub