File List

1
2
3
4
5
6
7
8
9
10

    Private Function FileList(ByVal Output As ListBox, ByVal Dir As String)
        For Each Directory As String In My.Computer.FileSystem.GetDirectories(Dir, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
            Dim Folder As String = Directory.Replace(Dir, "")
            Output.Items.Add("[" & Folder & "]")
        Next

        For Each File As String In My.Computer.FileSystem.GetFiles(Dir, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
            Output.Items.Add(File)
        Next
    End Function