קריאת שמות קבצים מתקיה! על פי סדר ?

שלום, יש לי את הקוד הבא:


Dim FS,FO,X
Set FS = Server.CreateObject("Scripting.FileSystemObject")
Set FO = FS.GetFolder(Server.MapPath("photos/"))

lastPhotoFile = ""

For Each X In FO.Files
                response.write "<br><br>" & X.Name & "<br><br>"
Next

Set FO=Nothing
Set FS=Nothing


אבל איך אני יכול לקרוא את הקבצים הללו ע"פ סדר ?
למשל י שלי קבצים:
1.jpg
10.jpg
2.jpg
3.jpg
4.jpg
5.jpg
והקובץ האחרון שנוצר הוא 10.jpg.
איך אני יכול לקרוא את הקבצים ע"פ תאריך יצירה ?
כך שהפלט שלי יהיה:
1.jpg
2.jpg
3.jpg
4.jpg
5.jpg
10.jpg
???
תודה לכולם,
שגיא