Ottieni tutte le cartelle/elenco di directory in VB.net

Question

Questa è la mia prima domanda StackOverflow, sto imparando VB e ho alcuni problemi con ottenere un elenco di tutte le cartelle/directory sul sistema. Sto utilizzando il codice incluso qui e sembra funzionare fino a raggiungere la cartella cestino, e le cartelle qualche altro sistema

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 

Qualcuno mi può aiutare con questo? Mi piacerebbe sapere cosa sta causando questo, e una buona soluzione, o un modo alternativo per farlo.

Grazie in anticipo.

Answer 1

L'accesso ad alcune cartelle non è consentito. È possibile utilizzare un blocco Try-Catch attorno allo Directory.GetDirectories(StartPath) oppure è possibile controllare preventivamente le proprietà della cartella.

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

Hai un doppio End Sub nel tuo codice!

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