|
こんにちは。
>パス配下全てのフォルダを表示したいのですが
は、良くわかんないです。
(雑誌に再帰利用するって書いてあったんで、今だにパスしてます。)
ツリーは、こんな感じ?
うまくループ組んで処理して下さい。
Private Sub UserForm_Initialize()
Dim NodA As Node
TreeView1.LineStyle = 0
'TreeView1.Style = tvwTreelinesPlusMinusPictureText
TreeView1.Style = 7
With TreeView1.Nodes
Set NodA = .Add(, , "Root", "フォルダ1")
Set NodA = .Add("Root", tvwChild, "Child1", "フォルダ1_1")
Set NodA = .Add("Root", tvwChild, "Child2", "フォルダ1_2")
Set NodA = .Add("Root", tvwChild, "Child3", "フォルダ1_3")
Set NodA = .Add("Child1", tvwChild, "Child11", "フォルダ1_1_1")
Set NodA = .Add("Child1", tvwChild, "Child12", "フォルダ1_1_2")
Set NodA = .Add("Child2", tvwChild, "Child21", "フォルダ1_2_1")
Set NodA = .Add("Child2", tvwChild, "Child22", "フォルダ1_2_2")
Set NodA = .Add("Child3", tvwChild, "Child31", "フォルダ1_3_1")
Set NodA = .Add("Child3", tvwChild, "Child32", "フォルダ1_3_2")
Set NodA = .Add("Child11", tvwChild, "Child111", "フォルダ1_1_1_1")
Set NodA = .Add("Child11", tvwChild, "Child112", "フォルダ1_1_1_2")
Set NodA = .Add("Child12", tvwChild, "Child121", "フォルダ1_1_2_1")
Set NodA = .Add("Child12", tvwChild, "Child122", "フォルダ1_1_2_2")
Set NodA = .Add("Child31", tvwChild, "Child311", "フォルダ1_3_1_1")
Set NodA = .Add("Child31", tvwChild, "Child312", "フォルダ1_3_1_2")
Set NodA = .Add("Child32", tvwChild, "Child321", "フォルダ1_3_2_1")
Set NodA = .Add("Child32", tvwChild, "Child322", "フォルダ1_3_2_2")
End With
Set NodA = Nothing
End Sub
|
|