Получите всю папку / список каталогов в VB.net

Это - мой первый вопрос о Stackoverflow, я изучаю VB и имею несколько проблем с получением списка всех папок/каталогов в системе. Я использую код, включенный здесь, и это, кажется, работает, пока это не поражает папку корзины и некоторые другие системные папки

Sub main()

    Dim DirList As New ArrayList
    GetDirectories("c:\", DirList)


    For Each item In DirList
        'add item to listbox or text etc here
    Next

End Sub

Sub GetDirectories(ByVal StartPath As String, ByRef DirectoryList As ArrayList)
    Dim Dirs() As String = Directory.GetDirectories(StartPath)
    DirectoryList.AddRange(Dirs)

    For Each Dir As String In Dirs
        GetDirectories(Dir, DirectoryList)
    Next
End Sub

Кто-либо может помочь мне с этим? Я хотел бы знать то, что вызывает это сначала, и хорошую фиксацию или альтернативный способ сделать это.

Заранее спасибо.