2011/08/20(Sat) 15:38:52 編集(投稿者)
サンプルです。
展開時に下位フォルダ情報を取得する場合は工夫が必要です。
With TreeView1.Nodes.Add("C:\", "C:").Nodes
For i = 1 To 3
With .Add(String.Format("C:\Dir{0}\", i), String.Format("Dir{0}", i)).Nodes
For j = 1 To 5
.Add(String.Format("C:\Dir{0}\Dir{0}-{1}\", i, j), String.Format("Dir{0}-{1}", i, j))
Next
End With
Next
End With
TreeView1.ExpandAll()
Dim nds = TreeView1.Nodes.Find(TextBox1.Text, True)
If nds IsNot Nothing AndAlso nds.length >0 Then
TreeView1.SelectedNode = nd(0)
End If
TreeView1.Focus()