2009-08-27 21 views
5

Nie można znaleźć sposobu, aby to zrobić, Google zawodzi mnie!Lista wszystkich folderów w katalogu

Proszę, dziękuję!

+2

"google zawodzi mnie!" -Naprawdę? https://www.google.co.uk/search?sclient=tablet-gws&site=&source=hp&btnG=Search&q=List+a+directory%27s+subdirectories+Visual+Basic –

Odpowiedz

12

Spróbuj tego:

Imports System 
Imports System.IO 

Class Program 
    Shared Sub Main() 
     For Each Dir As String In Directory.GetDirectories("c:\Program Files") 
      Console.WriteLine(Dir) 
     Next 
    End Sub 
End Class 

Używam metody Directory.GetDirectories która zwraca tablicę łańcuchów, po jednym dla każdego podkatalogu katalogu ja świadczenia jako parametr do metody.

4
DirectoryInfo di = new DirectoryInfo("path"); 

di.GetDirectories(); 
0
di = New DirectoryInfo(path) 

rgFiles = di.GetFiles("*.*", IO.SearchOption.AllDirectories) 

For Each fi As FileInfo In rgFiles 
    If CheckIfExist(fi.FullName.ToString.Replace("\" & fi.Name, "")) = False Then 
     ListBox1.Items.Add(fi.FullName.ToString.Replace("\" & fi.Name, "")) 
    End If 
Next 

Public Function CheckIfExist(ByRef Path As String) As Boolean 
    Dim RetVal As Boolean = False 

    For Each LI As String In ListBox1.Items 
     If LI.ToString = Path Then 
      RetVal = True 
      Return RetVal 
      Exit Function 
     End If 
    Next 
    Return RetVal 
End Function 
+0

Dziękujemy za zamieszczenie odpowiedzi! Podczas gdy fragment kodu mógłby odpowiedzieć na pytanie, nadal dobrze jest dodać dodatkowe informacje, np. Wyjaśnić itp. – j0k

Powiązane problemy