ciclo for ... next che mi mostri solo i primi 20

[luke73]

Ciao a tutti.
Ho questo ciclo che mi mostra tuttle le immagini contenute in una cartella sul server:

<%
dir="/images/film/"
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath(dir))
Set file3 = file2.Files
For Each file in file3
' visualizza il file contenuto
Next

%>

Il problema è che sono circa 2000 e il caricamento è molto lungo.
Avevo pensato, quindi, di far vedere ad ex. i primi 10 .

Ho provato ad inserire un for i = 1 to 10 ma mi ripete tutto il ciclo 10 volte.

Ciao!!

[Roby_72]

<% 
dir="/images/film/" 
Set file1 = CreateObject("Scripting.FileSystemObject") 
Set file2 = file1.GetFolder(server.mappath(dir)) 
Set file3 = file2.Files 
cont = 1
For Each file in file3 
if cont < 21 then
' visualizza il file contenuto 
end if
cont = cont + 1
Next 

%>

Roby