Ok merci
c juste ce k'il me fallait
@+
fabs
-------------------------------
Réponse au message :
-------------------------------
Ce code te permet de lister les dossiers d'un dossier dans une ListBox mais ca ne liste pas les sous-dossiers des sous-dossiers des sous-dossiers .......
Private Sub Command1_Click()
Dim FolderName As String
Dim Search As String
Dim StartPath As String
StartPath = "C:\Windows\"
Search = Dir$(StartPath & "*.*", vbDirectory)
List1.Clear
Do While Search <> ""
If (Search <> "." And Search <> "..") Then
If (GetAttr(StartPath & Search) And vbDirectory) Then
' C'est un dossier/répertoire
' Si tu veut le chemin d'accès complèt,
'FolderName = StartPath & Search
' Juste le nom du dossier trouver
FolderName = Search
List1.AddItem FolderName
End If
End If
Search = Dir$() ' Recherche le prochain
DoEvents
Loop
End Sub
VB_MAN-------------------------------
Réponse au message :
-------------------------------
Salut !
Je voudrais avoir la liste des dossiers situé dans un dossier
Comment faut faire
Merci pas avance
fabs