Recuperare Tre Record Alla Volta

[djlight]

ho questo codice

<% 

' Dichiara le variabili necessarie 
Dim strExt 
' Definisci il percorso della cartella da leggere 
strPath = "old/gallery/"+primo+"/"
strExt = ".jpg" 

' Crea gli oggetti FSO necessari 
Set objFso = Server.createObject("Scripting.FileSystemObject") 
Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) 
Set objFiles = objFolder.Files 

' Scorri tutti i file nella cartella 
for each strFile in objFiles 
' Controlla l'estensione 
if Right(strFile.name, Len(strExt)) = strExt then 
Response.Write"[img][/img]" & "
" 
end if 
next 
' Distruggi oggetti e libera risorse 
Set objFso = Nothing 
Set objFolder = Nothing 
Set objFiles = Nothing 
Response.Write(strPath)
%>

allora vorrei far apparire solo 3 immagini ma non so come sostuire questo ciclo for each con ciclo for normale.
Cioè faccio una for con I=3 ma poi come accedo ai vari record di objFile e come faccio a portarlo avanti tipo movenext?

se fosse un objRS da una query sql sarei in grado. Ma qui non ho capito come metterlo
esempio
objRS("id") mi estrae il campo id dal mio vettore nel record corrente
ma qui chi è objRS e chi è ID?

Grazie!

[Mems]

' Scorri tutti i file nella cartella 
i = 1
for each strFile in objFiles 
' Controlla l'estensione 
if Right(strFile.name, Len(strExt)) = strExt then 
Response.Write"[img][/img]" & "
" 
i = i + 1
if i = 3 then exit for
end if 
next

[djlight]

ottima idea! Grazie

[djlight]

Giusto perchè potrebbe servire anche ad altri
la variabile I va inizializzata a 1 oppure il controllo IF a 4
Altrimenti il ciclo svolge soltanto 2 op

[Mems]

Infatti dovevo mettere:

if i > 3 then exit for

[djlight]

si anche

Altra domanda il ciclo for each fa una scansione crescente del vettore.

Come posso fare una scansione decrescente?

[Mems]

for i = objFiles.Count to 1 step -1
' operazioni...
next

[djlight]

Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: ''

errore su questa linea
<option value="<%=strFile.name%>"><%=strFile.name%></option>

Probabilmente non sa a quale record accedere? devo dirgli strFile.name (i) ma non so come indicargli I

[Mems]

Ovvio.
Non c'è più la variabile strFile...
... prova così. Semmai leva il .name

<option value="<%=objFiles(i).name%>"><%=objFiles(i).name%></option>

[djlight]

non funzia ne con .name ne senza
mi dice Errore di run-time di Microsoft VBScript (0x800A0005)
Chiamata di routine o argomento non validi
non capisco come fa ad andare il ciclo senza strFile
oppure non capisco cosa è strFile