Discussion :

[sebos63]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Megaxel]

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.

[Megaxel]

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.

[sebos63]

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