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
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
RAVAILLE James
Bonjour,
Je pense que le plus simple est de passer par une structure de données intermédiaire telle que l'arrayList ou un type personnalisée dérivant du type ArrayList. Tu peux ensuite trier la liste avec la méthode sort et générer ton flux HTML ou alimenter un contrôle de type DropDownList en parcourant la liste, ou plus simplement en utilisant l'interface IEnumerator : LstMaListe.DataSource = NomArrayList LstMaListe.DataBind()
A+. -- James RAVAILLE.
"Martin" a écrit :
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 !!!
Bonjour,
Je pense que le plus simple est de passer par une structure de données intermédiaire telle que l'arrayList ou un type personnalisée dérivant du type ArrayList.
Tu peux ensuite trier la liste avec la méthode sort et générer ton flux HTML ou alimenter un contrôle de type DropDownList en parcourant la liste, ou plus simplement en utilisant l'interface IEnumerator :
LstMaListe.DataSource = NomArrayList
LstMaListe.DataBind()
A+.
--
James RAVAILLE.
"Martin" a écrit :
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
Je pense que le plus simple est de passer par une structure de données intermédiaire telle que l'arrayList ou un type personnalisée dérivant du type ArrayList. Tu peux ensuite trier la liste avec la méthode sort et générer ton flux HTML ou alimenter un contrôle de type DropDownList en parcourant la liste, ou plus simplement en utilisant l'interface IEnumerator : LstMaListe.DataSource = NomArrayList LstMaListe.DataBind()
A+. -- James RAVAILLE.
"Martin" a écrit :
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
