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()