VB.net

Question

में सभी फ़ोल्डर/निर्देशिका सूची प्राप्त करें यह मेरा पहला स्टैक ओवरफ्लो प्रश्न है, मैं वीबी सीख रहा हूं और सिस्टम पर सभी फ़ोल्डरों/निर्देशिकाओं की सूची प्राप्त करने में कुछ समस्याएं हैं। मैं कोड का उपयोग कर रहा यहाँ शामिल है और यह जब तक यह रीसायकल बिन फ़ोल्डर हिट काम करने के लिए लगता है, और कुछ अन्य सिस्टम फ़ोल्डर

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 

किसी ने मुझे इस के साथ मदद कर सकते हैं? मैं जानना चाहता हूं कि यह पहले क्या कारण बन रहा है, और एक अच्छा फिक्स, या ऐसा करने का वैकल्पिक तरीका।

अग्रिम धन्यवाद।

Answer 1

कुछ फ़ोल्डरों तक पहुंच की अनुमति नहीं है। आप Directory.GetDirectories(StartPath) के आस-पास एक प्रयास-कैच ब्लॉक का उपयोग कर सकते हैं, या आप पहले से फ़ोल्डर के गुणों की जांच कर सकते हैं।

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

आप एक डबल End Sub अपने कोड में है!

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