VBA：パスから最後のフォルダ名・ファイル名を取得する方法
VBAでツールを作っていると、パスからフォルダ名やファイル名を取得したい場合があります。
そのような場合に使えるサンプルコードを簡単ですが記事にしておきます。
◆フォルダ名・ファイル名の取得方法
パスを「Split」分解して、配列の最期を持ってくれば最後のフォルダ名になります。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
'//パスの一番最後のフォルダ名・ファイル名を取得' Function getLastPathName() As String Dim FNameArray As Variant Dim TargetPath As String TargetPath = "C:\Users\xxxx\testフォルダ" 'パスをファイル名まで書けばファイル名を取得できます。' 'TargetPath = "C:\Users\xxxx\testフォルダ\test.xlsx"' 'パスを分解して配列に代入します' FNameArray = Split(TargetPath, "\") '配列の最期を取得します' getLastPathName = FNameArray(UBound(FNameArray)) End Function |
