2009-08-27 31 views
5

Kann nicht scheinen, einen Weg zu finden, dies zu tun, Google versagt mich!Alle Ordner im Verzeichnis auflisten

Bitte helfen, danke!

+2

"google mir versagt!" -Ja wirklich? https://www.google.de/search?scientique=tablet-gws&site=&source=hp&btnG=Search&q=Liste+ein+Verzeichnis%27s+subdirectories+Visual+Basic –

Antwort

12

Try this:

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 

ich die Directory.GetDirectories Methode verwenden, die ein Array von Strings zurückgibt, einem für jedes Unterverzeichnis des Verzeichnisses mich als Parameter an die Methode zur Verfügung stellen.

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

Danke für das Posten einer Antwort! Während ein Code-Snippet die Frage beantworten könnte, ist es immer noch großartig, Zusatzinformationen wie Erklärungen usw. hinzuzufügen. – j0k

Verwandte Themen