ExcelVBA Tips(その他)

HOME>TOP>その他

パス名からファイル名を取り除くには？

キーワード>>Len・Mid

Point ：あるファイルのパス名を取得したがファイル名だけを取り除きたい。

Sub Test()
     Dim strFileName, strPathOnly
     Dim i

    strFileName = "C:\My Documents\Test.txt"
    '目的のファイルのフルパス

    For i = Len(strFileName) To 1 Step -1
        If Mid(strFileName, i, 1) = "\" Then
            Exit For
        End If
    Next

strPathOnly = Mid(strFileName, 1, i - 1)

   MsgBox strPathOnly

End Sub