Array bakvänt?

Ej testat, kan funka.

i = Ubound(array)
Do While (i >= 0)
  Response.Write(array(i) & "<BR>")
  i = i-1
Loop

Med en for-loop:

for i = ubound(array) to 0 step -1
	'lite kod...
next

A! Smart, ska testa senare. Tack så mycket!

Hmm, jag lyckas inte få till ampys for-loop. Jag hämtar alla bilder i en mapp:

set Files = Folder.Files

...och loopar ut dom med:

For each Item In Files

...och kan då enkelt hämta t ex filnamnet så här:

response.write Item.Name

Det funkar ju bra. Men nu vill jag alltså loopa ut arrayen bakifrån så jag ändrar min for-loop lite:

for item = ubound(Files) to 0 step -1

Det funkar mindre bra, vad gör jag för fel?

Files är ingen array, det är en collection.
Du måste alltså först skapa en array med filnamnen.

dim varFiles()
i = 0
For each Item In Files
     redim preserve varFiles(i)
     varFiles(i) = Item.Name
     i = i + 1
Next

.....

for i = ubound(varFiles) to 0 step -1
     .....
next

Ouff, snabbt svar, tackar! Det funkar ju finfint. Men det går alltså inte att loopa ut en collection baklänges utan göra om den till en array?

For i = Files.count -1 step -1
     response.write files(i)
Next

Grymt, tackar!