1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
| Set objFSO = CreateObject("Scripting.FileSystemObject")
strDossierRacine = InputBox("Saisir le dossier racine :", "Dossier racine", "Dossier racine")
intNiveauArborescence = 0
subVerifExistenceDossier strDossierRacine
Set objDossierRacine = objFSO.GetFolder(strDossierRacine)
subAfficherArborescence objDossierRacine, intNiveauArborescence
Sub subVerifExistenceDossier(strNomDossier) 'vérifie que le dossier de base existe
If Not objFSO.FolderExists(strNomDossier) Then
Wscript.Echo "Le dossier spécifié n'existe pas"
Wscript.Quit
Else
Wscript.Echo "Contenu du dossier " & strNomDossier
End If
End Sub
Sub subAfficherArborescence(objDossierParent, intNiveauArborescence)
Set colFicArbo = objDossierParent.Files
If colFicArbo.Count <> 0 Then
For Each objFicArbo In colFicArbo
strLigne = ""
For i=0 To intNiveauArborescence
strLigne = strLigne & " "
Next
Wscript.Echo strLigne & "\__" & objFicArbo.Name
Next
End If
Set colSousDossiers = objDossierParent.SubFolders
If colSousDossiers.Count <> 0 Then 'vérifie qu'il y a des sous-dossiers
For Each objDossierArbo In colSousDossiers
strLigne = ""
For i=0 To intNiveauArborescence
strLigne = strLigne & " "
Next
Wscript.Echo strLigne & "\__" & objDossierArbo.Name
subAfficherArborescence objDossierArbo, intNiveauArborescence + 1 'RECURSIVITE !!!!!
Next
End If
End Sub |
Partager