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