TreeViewの初期表示を設定するには？ (ID:111638)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 お世話になっております。 TreeViewでディレクトリを展開しているのですが、 現在は開いたとき、自分のマシン内の全てのドライブが表示されています。 これを、特定したフォルダが初期表示で表示されるようにしたいのです。 なので、ドライブは表示されないことになります。 指定したフォルダ以下のみが表示されます。 また、そのフォルダ以下を全て展開した状態で初期表示したいのです。 どなたか御教授下さい。。 OS:WinNT VB:6.0 Private Sub Form_Load() Dim j As Integer, jmax As Integer Dim cleDrive As New Collection Dim strX As String 'Driveコントロールから 'ドライブを列挙します jmax = Drive1.ListCount - 1 For j = 0 To jmax 'ドライブ名の抽出です strX = Mid(Drive1.List(j), 1, BackInstr(Drive1.List(j), ":")) 'ドライブをコレクションに格納します cleDrive.Add strX 'ノードを作成します TreeView1.Nodes.Add , , strX, strX, "Drive" Next '格納したドライブコレクションを使い '下層のフォルダを見つけ 'ノードを作成します TreeEnum cleDrive End Sub -------------------------------------------------------------- '下層のフォルダを検索してノードを作成します Sub TreeEnum(ByVal cleDir As Collection) Dim vriEnum As Variant Dim j As Integer, jmax As Integer Dim strX As String, strM As String On Error Resume Next For Each vriEnum In cleDir 'Dirコントロールにパスを入れます Dir1.Path = vriEnum & "\" Select Case Err.Number Case 0 '既にノードがある場合の処理はしていません 'ノードの作成をします jmax = Dir1.ListCount - 1 For j = 0 To jmax strM = Dir1.List(j) strX = Mid(strM, BackInstr(strM, "\") + 1, Len(strM) - BackInstr(strM, "\")) TreeView1.Nodes.Add vriEnum, tvwChild, vriEnum & "\" & strX, strX, "FoldClose" Next 'エラー処理です Case Else 'デバックウィンドウ（イミディエイト）に 'エラー内容を表示します 'Debug.Printはスピードが落ちますので '削除してもかまいません Debug.Print Err.Description Err.Clear End Select Next End Sub