ファイルフルパスからフォルダパスとファイル名をそれぞれ取得 

パスからフォルダ、ファイル名それぞれを取得

時間が惜しいから解釈してくれ。ソースはこれじゃ。間違ってたら貼りなおしてほしい。

Function scanTextFile(argFilePath As String)
    Dim dirs As Variant: dirs = Split(argFilePath, "\")    
    Debug.Print Left(argFilePath, Len(argFilePath) - Len(dirs(UBound(dirs))) - 1)
    Debug.Print dirs(UBound(dirs))
End Function


コメント