Poser une question

Re: Comment récuperer les non des directory

Salut,

Avant tout mettons les choses au clair.

RIEN NE PRESSE ICI, c'est pas un service d'expert conseil à 250$/h. Les messages "Urgent" reste sur la tablette. Et de toute façon rien ne devrait être urgent pour un programmeur, t,as de forte chance d'ajouter plus de bogues qu'autre chose.

Tu parle à une communauté de Webmestres pour Webmestres, pour les outils gratuits c'est ailleurs. Alors prend la peine de faire un bout de chemin et revient pour discuter de tes embuches MAIS NE DEMANDE PAS DE SYSTÈME COMPLET...

Ceci dit, voilà le code mais souvient en!

Les sous-répertoires sobtienne avec une "collection" obtenue avec la méthode FSO "GetFolder". Le tout en boucle, il suffit d'extraire les noms de fichiers obtenus avec la méthode FSO "Files". Avant de générer les options de la liste de sélection directement dans la boucle, il ne reste qu'à extraire la date à partir de la fin et de la commande VBScript "right" pour construire ta date...

set fs = CreateObject("Scripting.FileSystemObject")
nRep = Server.MapPath(".")
set MonRep = fs.GetFolder(nRep)
set ColRep = MonRep.SubFolders
for each folderItem in ColRep
Dossier = Split(folderItem.path, nRep, -1, 1)
set MesFichiers = fs.GetFolder(folderItem.path)
set ColFiles = MesFichiers.Files
for each FilesItem in ColFiles
Epure = Split(FilesItem.path, folderItem.path, -1, 1)
sDate1 = Split(Epure(1),".")
sDate2 = Right(sDate1(0),8)
Response.Write "<option value=""C:\PFJ"&Dossier(1)&Epure(1)&""">C:\PFJ"&Dossier(1)&right(sDate2,2) & "/" & mid(sDate2,5,2) & "/" & left(sDate2,4)&" </option>"
next
next
set MesFichiers = nothing
set ColFiles = nothing
set ColRep = nothing
set MonRep = nothing
set fs = nothing

Ciao
Oznog

Réponses

Aucune réponse à ce message...