Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement ASP.Net Choix en ordre décroissant

Choix en ordre décroissant

1 réponse
Avatar
Martin
Bonjour =E0 tous,

Je fais appara=EEtre une liste =E0 partir des noms de fichier=20
d'un r=E9pertoire bien pr=E9cis. Mais je voudrais avoir cette=20
liste en ordre d=E9croissant.
Que dois-je faire pour que cette liste soit en ordre=20
d=E9croissant ???

If fsoListeImportation.FolderExists(Server.MapPath =20
("\GCQC\Rapports\" & Session("NoSiteUsager")=20
& "\Importation")) Then

Dim f, f1, fc
Dim x As Integer
Dim y As Integer
x =3D 1

f =3D fsoListeImportation.GetFolder(Server.MapPath
("\GCQC\Rapports\" & Session("NoSiteUsager")=20
& "\Importation"))
fc =3D f.files

For Each f1 In fc
y =3D Len(f1.name) - 12
lstImportation.Items.Insert(x, Mid(f1.name, 1, y) =20
& " " & Mid(Right(f1.name, 12), 1, 2) & ":" & Mid(Right=20
(f1.name, 12), 4, 2) & ":" & Mid(Right(f1.name, 12), 7, 2))
Next

End If


Merci =E0 l'avance !!!
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Julien Adam
Premièrement, pas la peine de poster 50 fois... il faut attendre quelques
minutes avant qu'un message posté apparaisse sur le serveur.

Pour répondre à ta question. Le plus facile est de créer une ArrayList
(System.Collections.ArrayList) de mettre tes éléments dedans avec la méthode
Add et d'appeler Sort puis Reverse sur l'ArrayList. Tu auras ainsi une liste
triée en ordre décroissant que tu pourras utiliser pour faire du DataBinding
par exemple.

Ce n'est pas forcément la solution la plus optimisée mais c'est une solution
simple et rapide.

Julien Adam

"Martin" wrote in message
news:a64a01c47958$d78420a0$
Bonjour à tous,

Je fais apparaître une liste à partir des noms de fichier
d'un répertoire bien précis. Mais je voudrais avoir cette
liste en ordre décroissant.
Que dois-je faire pour que cette liste soit en ordre
décroissant ???

If fsoListeImportation.FolderExists(Server.MapPath
("GCQCRapports" & Session("NoSiteUsager")
& "Importation")) Then

Dim f, f1, fc
Dim x As Integer
Dim y As Integer
x = 1

f = fsoListeImportation.GetFolder(Server.MapPath
("GCQCRapports" & Session("NoSiteUsager")
& "Importation"))
fc = f.files

For Each f1 In fc
y = Len(f1.name) - 12
lstImportation.Items.Insert(x, Mid(f1.name, 1, y)
& " " & Mid(Right(f1.name, 12), 1, 2) & ":" & Mid(Right
(f1.name, 12), 4, 2) & ":" & Mid(Right(f1.name, 12), 7, 2))
Next

End If


Merci à l'avance !!!