Discussion :

[Anduriel]

Salut,

J'ai trouvé un code pour lister les fichiers et les dossiers mais je n'arrive pas à le modifier pour lister seulement les dossiers:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Explorer(ByVal node As TreeNode)
Try
Dim s As String
node.Nodes.Clear()
For Each s In Directory.GetDirectories(node.FullPath)
node.Nodes.Add(Path.GetFileName(s))
Next
Catch
End Try
End Sub

J'ai changé le GetFileName par GetDirectoryName mais si j'ai par exemple 8 dossiers dans C:\, il va me créer 8 éléments C:\

Deuxième question en parlant de C:: comment faire pour lister tous les DD?

Merci

[benito9253]

Pour lister les lecteurs tu peux faire comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
        Dim drive() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives()
        For Each MonLecteur In drive
            MsgBox(MonLecteur.Name)
        Next

Si tu veux vérifier que ceux sont des disques dur utilise la propriété DriveType.