mattwarend2002 | Bonjour,
J'ai trouvé ce code en cherchant sur le forum :
Code :
- Sub ListerLesSsRepEtLeursFichiers() '(Chemin) 'chemin peut être passé en paramètres
- Dim fso, ListR, sRep, ListF, Rep, LesReps, fich, LesFichs
- Set fso = CreateObject("Scripting.FileSystemObject" )
- Chemin = "c:\Program files"
- Set ListR = fso.GetFolder(Chemin)
- Set sRep = ListR.SubFolders
- For Each Rep In sRep
- LesReps = LesReps & Rep.Name
- LesReps = LesReps & vbCrLf
- Set ListF = Rep.Files
- For Each fich In ListF
- LesFichs = LesFichs & fich.Name
- LesFichs = LesFichs & vbCrLf
- Next
- If LesFichs <> "" Then
- MsgBox LesFichs, 0, "Fichiers du répertoire " & Rep.Name
- Else
- MsgBox "Il n'y a pas de fichier dans ce répertoire !", 0, "Répertoire " & Rep.Name
- End If
- LesFichs = ""
- Next
- MsgBox LesReps, 0, "Répertoires du dossier " & Chemin
- End Sub
|
Je cherche à l'adapter pour qu'il me remonter l'emplacement de tous les répertoires nommés test dans c:\Program files.
Pour le résultat, ce que je souhaiterais, c'est qu'il n'y ai plus de message Box, mais que les répertoires où se situent les répertoires test apparaissent dans la feuille de calcul.
Merci d'avance pour votre aide.
Message édité par mattwarend2002 le 17-11-2008 à 17:37:21
|
