ヘッダー

VB.NET 2002, VB.NET 2003, VB2005

フォルダツリー

以下の例ではツリービュー(TreeView1)にエクスプローラのようなフォルダツリーを再現する。アイコンなどは表示されないがフォルダの展開・縮小もできて、ちゃんと機能する。

VB.NET2002対応 VB.NET2003対応 VB2005対応

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    For Each Drive As String In IO.Directory.GetLogicalDrives
        TreeView1.Nodes.Add(Drive)
   
Next

    TreeView1.SelectedNode = TreeView1.Nodes(1)

End Sub

Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect

    Try

        Dim oFolder As New IO.DirectoryInfo(e.Node.FullPath)

        For Each Folder As IO.DirectoryInfo In oFolder.GetDirectories
            e.Node.Nodes.Add(Folder.Name)
       
Next

    Catch ex As Exception
        MsgBox(ex.Message)
    End
Try

End Sub