Paginazione Array

[jspippo]

Slave forumiani..

ho realizzato una paginazione di array che contiene i dati di una cartella.

Funziona tutto, volevo solo sapere se è la tecnica giusta o se c'è qualche altra soluzione grazie.

  
<% 
Set fs = CreateObject("Scripting.FileSystemObject")

percorso = request.QueryString("path")


' se il percorso non è stato già scelto, viene impostato sulla cartella corrente
if (percorso = "") then
response.write "devi scegliere un percorso"
else
  PercorsoFile = "./" & percorso
end if

StrPath = Server.MapPath(PercorsoFile)

Set f = Fs.GetFolder( strPath )
Set fc = f.Files

Dim ListaFile(200)
i = 0

For Each f1 in fc
ListaFile(i) = f1.name
if ListaFile(i) = "" then
exit for
else 
i = i + 1
end if
Next

'response.write Ubound(ListaFIle)

%>
<table width="90%"  border="0" cellpadding="5" cellspacing="0">
<%

'ReDim Preserve ListaFile(i)
dove = request.QueryString("avanti")
da = request.QueryString("da")

if dove = ""  Or dove = 0 then
da = 0
dove = 10
'variabile per nascondere o visualizzare con STYLE il link indietro
vediIn = "none"
end if

'response.write i & "   " & vediIn

for J = da to dove
if j >= i then
'variabile per nascondere o visualizzare con STYLE il link avanti
vedi = "none"
exit for
end if
%>
  <tr>
    <td width="36%" align="center">" target="_blank">[img]<%= percorso & [/img]" width="32" height="32" border=0></td>
    <td width="64%" align="center" class="BordoSX"><%= ListaFile(j) %></td>
  </tr>
<%
Next
%>
<tr>
<td align=right>">Indietro</td>
<td align=right>">Avanti
</td>
</tr>
</table>
<%

Set fc = Nothing
Set f = Nothing
Set Fs = Nothing

%>

Nella riga

'ReDim Preserve ListaFile(i)

non sono riuscito a ridimensionare l'array perchè mi dice che è protetto, come mai?

grazie per i consigli

[weppos]

non sono riuscito a ridimensionare l'array perchè mi dice che è protetto, come mai?

Perchè lo hai dichiarato fisso

Dim ListaFile(200)

Dichiaralo come

Dim ListaFile()

[jspippo]

Ciao

si ci avevo provato gia provato e mi dava questo errore:


Indice non incluso nell'intervallo
errore alla riga 71

i = 0
For Each f1 in fc
ListaFile(i) = f1.name ---line 71
i = i + 1
Next

come mai?