Nhận tất cả danh sách thư mục/thư mục trong VB.net

Question

Đây là câu hỏi Stackoverflow đầu tiên của tôi, tôi đang học VB và gặp một số vấn đề với danh sách tất cả thư mục/thư mục trên hệ thống. Tôi đang sử dụng mã bao gồm ở đây và có vẻ như để làm việc cho đến khi nó chạm vào thư mục thùng rác, và một số hệ thống khác thư mục

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 

bất cứ ai có thể giúp tôi với điều này? Tôi muốn biết điều gì đang gây ra điều này trước tiên, và sửa chữa tốt, hoặc cách khác để làm điều này.

Xin cảm ơn trước.

Answer 1

Không cho phép truy cập vào một số thư mục. Bạn có thể sử dụng khối Thử-Catch xung quanh Directory.GetDirectories(StartPath) hoặc bạn có thể kiểm tra các thuộc tính của thư mục trước.

Answer 2

Try 
    Dim Dirs() As String = Directory.GetDirectories(StartPath) 
    DirectoryList.AddRange(Dirs) 
    For Each Dir As String In Dirs 
     GetDirectories(Dir, DirectoryList) 
    Next 
    Catch ex As Exception 
End Try 

Answer 3

Bạn có một đôi End Sub trong mã của mình!

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 

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