Poser une question

Re: Listing d'un dossier > affichage

huum, eh bien j'ai bien regardé les pages que tu m'as indiqué, on a donc au final ceci :


set fs = CreateObject("Scripting.FileSystemObject")
nRep = "Répertoire Racine (Roots)"
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

=====================================
Il n'y a donc que le :

nRep = "Répertoire Racine (Roots)"

a changé ? on remplace Répertoire Racine par c:/transfert/ (exemple)

c'est ca ?

merci

Réponses

Re: Listing d'un dossier > affichage  oXoiD 1/10/2004