Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28113 / 76732

←次へ　｜　前へ→


	【53926】Re:親フォルダの親フォルダのPATHが知りたい

ichinose - 08/2/15(金) 21:33 -


	引用なし

	パスワード

▼坊主頭のプログラマさん：
こんばんは。

>親フォルダのPATHはThisWorkbook.PATHで取得できますが、親の親フォルダは取得できますか？"\"を検索して、取得するしか方法は無いのでしょうか？教えて下さい。
ＦＳＯというオブジェクトを使うと可能ですね！！

Sub main()
　　Dim fso As Object
　　Dim pp As Variant
　　Set fso = CreateObject("scripting.filesystemobject")
　　pp = ThisWorkbook.Path
　　Do Until fso.GetParentFolderName(pp) = ""
　　　 pp = fso.GetParentFolderName(pp)
　　　 MsgBox pp
　　　 Loop
　　Set fso = Nothing
End Sub

又は、Split関数を使えば、

Sub main2()
　　Dim g0 As Long
　　Dim pp As Variant
　　pp = Split(ThisWorkbook.Path, "\")
　　For g0 = UBound(pp) - 1 To LBound(pp) Step -1
　　　 MsgBox pp(g0)
　　　 Next
　　Erase pp
End Sub

1 hits

▼

【53925】親フォルダの親フォルダのPATHが知りたい 坊主頭のプログラマ 08/2/15(金) 20:45