2009-08-27 7 views
5

Impossible de trouver un moyen de faire cela, google me manque!Liste de tous les dossiers dans le répertoire

S'il vous plaît aider, merci!

+2

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

Répondre

12

Essayez ceci:

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 

J'utilise la méthode Directory.GetDirectories qui retourne un tableau de chaînes, un pour chaque sous-répertoire du répertoire que je fournis en tant que paramètre à la méthode.

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

Merci d'avoir posté une réponse! Alors qu'un extrait de code pourrait répondre à la question, il est toujours bon d'ajouter des informations complémentaires, comme expliquer, etc. – j0k

Questions connexes