| |
▼坊主頭のプログラマ さん：
こんばんは。
>親フォルダの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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
