[VBS] Liste de fichiers sur un repertoire

Bonjour

J'essaie d'obtenir une liste triée de manière alphabétique des noms de fichiers contenus dans un repertoire.
J'obtiens une liste, mais non triée ou alors je ne sais sur quel critère

Voici le code VBS utilisé.
J'ai essayé sous JS et j'obtiens le même resultat (non trié).

Code:

---

1 2 3 4 5 6 7 8 9

Dim fso, f, fc, fileWriter Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder("D:\perso") Set fc = f.Files Set fileWriter = fso.OpenTextFile("D:\perso\liste.txt", 2, True) For Each f1 in fc fileWriter.WriteLine f1.name Next

---

Merci pour les âmes charitables qui pourront m'eclairer.
Cdlt

Ben, faut dire que tu ne fais le tri nulle part, alors ce n'est pas étonnant que ta liste soit dans le désordre (enfin, pas dans l'ordre que tu attends...).
Fais une recherche sur ce forum, j'ai vu passer il n'y a pas trop longtemps un algorithme de tri pas mal du tout. Je crois que c'est Leroissejp qui l'avait donné, mais je ne suis pas sûr.

Tiens, j'ai trouvé ça:
http://plasserre.developpez.com/ve1-3.htm

Remplis d'abord un tableau avec ta liste dans le désordre, puis applique l'algo, et ensuite, tu pourras écrire dans ton fichier la liste des fichiers du répertoire dans l'ordre alphabétique.

Ok merci.

Par contre, je trouve ça enorme qu'il y n'ai pas une option pour la collection 'Files' pour spécifier un ordre de tri (critère et sens).
Enfin

Merci encore