1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| set fs = CreateObject("Scripting.FileSystemObject")
nRep = "\\serveur\rep\rep\rep\_rep"
set MonRep = fs.GetFolder(nRep)
set ColRep = MonRep.SubFolders
for each folderItem in ColRep
Epure = Split(folderItem.path, nRep, -1, 1)
Response.Write "Répertoire: " & Epure(1) & "<br>"
set MesFichiers = fs.GetFolder(folderItem.path)
set ColFiles = MesFichiers.Files
for each FilesItem in ColFiles
Epure = Split(FilesItem.path, folderItem.path, -1, 1)
Response.Write "- Fichier: " & Epure(1) & "<br>"
next
next
set MesFichiers = nothing
set ColFiles = nothing
set ColRep = nothing
set MonRep = nothing
set fs = nothing |
Partager