Directories laten zien in TreeView (VB.net)

[TellMe]

Daag!

Ik zoek 'n scriptje waarbij ik 'n directory kan laten zien in 'n treeview...
Dan moeten alle MP3 en WAV files in 'n listview komen te staan...

Ik ben nu al 2 jaar bezig met m'n programma maar hier blijf ik in vastzitten...
Wie-o-Wie?!!?

Alvast bedankt!

jeremy

 

[lab4]

Deze laat alle bestanden zien. Misschien kom je er verder mee.

Imports System.IO

Public Class Explorer1

    Dim dir As String = "X:\"
    Dim sb As New System.Text.StringBuilder


    Private Sub Explorer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        GetFolders(Nothing, "X:\", TreeView)
        GetFolders(Nothing, "X:\", TreeView)


    End Sub


    Private Sub GetFolders(ByVal Node As TreeNode, ByVal Root As String, ByVal Tree As TreeView)

        If Node Is Nothing Then Node = Tree.Nodes.Add(Root, IO.Path.GetFileName(Root))
        GetFiles(Node)

        Dim dirs() As String = IO.Directory.GetDirectories(Root)
        Array.Sort(dirs)
        For Each Dir As String In dirs
            Dim DirInfo As New IO.DirectoryInfo(Dir)
            If (DirInfo.Attributes And IO.FileAttributes.System) <> IO.FileAttributes.System Then
                Dim N As TreeNode = Node.Nodes.Add(Dir, DirInfo.Name)
                GetFolders(N, Dir, Tree)
                GetFiles(N)
            End If
        Next
    End Sub

    Private Sub GetFiles(ByVal Node As TreeNode)

        For Each File As String In My.Computer.FileSystem.GetFiles(Node.Name)

            Dim N As New TreeNode

            N.Text = IO.Path.GetFileName(File)

            Node.Nodes.Add(N)

        Next

    End Sub

End Class