estrazione foto in ordine crescente

[SmP]

Salve a tutti,
ho uno script che mi estrae da una cartella tutte le immagini in essa contenute e le visualizza. Premesso che il nome delle immagini è numerico, esiste un modo per ordinare l'estrazione in maniera crescente?
Grazie

Script:
------------------------------------------------------
<%
dir="/foto/"
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath(dir))
Set file3 = file2.Files
For Each file in file3
response.write "[img]"&dir&file.name &"[/img]"
response.write "

"
Next
%>

[Domenix]

Se i file fossero nominati così
0001.jpg
0002.jpg
0010.jpg
0500.jpg
1234.jpg
allora te li ordinerebbe automanticamente in ordine crescente.

[SmP]

in alcuni casi mi ritrovo secondo il seguente ordine:

1.jpg
111.jpg
2.jpg
3.jpg
32.jpg

???

non esiste un modo per farlo ordinare correttamente?

[Santino83_02]

- selezioni la cartella
- inserisci i nomi dei file in un array
- applichi un algoritmo di ordinamento all'array (un semplice insertion sort ti basta)
- stampi le foto seguendo l'ordine dell'array

in tal modo puoi applicare la condizione



nomefile=tuoarray[i]
precedente=tuoarray[j]

if cint(left(nomeFile,len(nomeFile)-4)) > cint(left(precedente,len(precedente)-4)) then
   'va messo dopo il precedente
else
   'va messo prima del precedente
end if

per implementare un algoritmo di ordinamento su array dovresti trovare molto sia su google che sul forum stesso perchè se n'è parlato