Trucsweb.com

Forum de discussion

 Forum « Programmation ASP » (archives)

Re: Comment récuperer les non des directory

Envoyé: 10 novembre 2003, 18h09 par Oznog


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... 
Aucun médias sociaux
X

Trucsweb.com Connexion

Connexion

X

Trucsweb.com Mot de passe perdu

Connexion

X

Trucsweb.com Conditions générales

Conditions

Responsabilité

La responsabilité des Trucsweb.com ne pourra être engagée en cas de faits indépendants de sa volonté. Les informations mises à disposition sur ce site le sont uniquement à titre purement informatif et ne sauraient constituer en aucun cas un conseil ou une recommandation de quelque nature que ce soit.

Aucun contrôle n'est exercé sur les références et ressources externes, l'utilisateur reconnaît que les Trucsweb.com n'assume aucune responsabilité relative à la mise à disposition de ces ressources, et ne peut être tenue responsable quant à leur contenu.

Droit applicable et juridiction compétente

Les règles en matière de droit, applicables aux contenus et aux transmissions de données sur et autour du site, sont déterminées par la loi canadienne. En cas de litige, n'ayant pu faire l'objet d'un accord à l'amiable, seuls les tribunaux canadien sont compétents.

X

Trucsweb.com Trucsweb

X

Trucsweb.com Glossaire

X

Trucsweb.com Trucsweb

X

Trucsweb.com Trucsweb

Conditions

Aucun message!

Merci.

X
Aucun message!
X

Trucsweb.com Créer un compte

Créer un compte

.
@