[[20190412104747]]　『フォルダパスから最下層のフォルダ名を取り出す。』（たすく）　ページの最後に飛ぶ

『フォルダパスから最下層のフォルダ名を取り出す。』（たすく）

質問です。
var_pathという変数に
C:\Users\田中\Documents\資料
というフォルダパスが入っていた場合、
var_folderという変数に最下層のフォルダ名（今回なら資料）を格納したいのですがどのように抽出すれば良いのでしょうか？
フォルダ名の文字数は毎回ランダムです。
宜しくお願い致します。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

    ary = Split(var_path, "\")
    MsgBox ary(UBound(ary))
とか    
    MsgBox Mid(var_path, InStrRev(var_path, "\") + 1)
とかでしょうか。
（γ） 2019/04/12(金) 10:58

もろかぶりですが、投稿しておきます。

Split関数を使って、"\"を区切り文字として分解したうえで、最後？の要素を取り出すのがお手軽でよいとおもいます。

    Sub 実験()
        Dim buf As Variant

        buf = Split("C:\Users\田中\Documents\資料", "\")
        Debug.Print buf(UBound(buf))

    End Sub

（もこな２） 2019/04/12(金) 11:02

 フォルダがあれば　ですけど
 msgbox dir("C:\Users\田中\Documents\資料",vbDirectory)
 が手っ取り早い気がします。
（稲葉） 2019/04/12(金) 13:04

コメント返信：

[ 一覧(最新更新順) ]

[[20190412104747]] 『フォルダパスから最下層のフォルダ名を取り出す。』（たすく） ページの最後に飛ぶ

[[20190412104747]]　『フォルダパスから最下層のフォルダ名を取り出す。』（たすく）　ページの最後に飛ぶ