ottimizzare lettura file su server

[yro]

ciao, ho creato una piccola applicazione che va a leggere e mostrare tutti i file presenti in una cartella sul server.

per ordinarli li metto in un recordset disconnesso e li riordino.

il problema è che mi va in timeout perche i file sono moltissimi... sono piccole immagini, ma ce ne saranno alcune migliaia...

il codice fatto è questo

<% 
Server.ScriptTimeout = 120
dim objfso,objfolder,objfiles,rs,strfile,fn,fc,strPath
strPath = "\\ip-server\folder\" 
Set objFso = Server.createObject("Scripting.FileSystemObject") 

Set objFolder = objFso.GetFolder(strPath) 


Set objFiles = objFolder.Files 

dim quanti,pag,contatore

quanti = 20
pag = Request.QueryString("pag")
If IsNumeric(pag) = False Or pag < 1 Then pag = 1
contatore = 0

Set rs = Server.CreateObject("ADODB.Recordset")
Rs.Fields.Append "nome", 200, 255
Rs.Fields.Append "data", 7
Rs.Open

' Scorri tutti i file nella cartella 
for each strFile in objFiles 

fn = strFile.name
fc= strFile.DateCreated

	rs.addnew
	rs("nome")=fn
	rs("data")=fc
	rs.update
	
next

rs.Sort =  "data desc"

rs.PageSize = quanti
rs.AbsolutePage = pag

set objfso = NOTHING
set objfolder = NOTHING
set objFiles = NOTHING
%>

<%While rs.EOF = False And contatore < quanti%>
<tr>

<td class="td">

<%
dim percorsoimmagine
percorsoimmagine = strPath&rs("nome")&""
response.write("[img]"&percorsoimmagine&"[/img]")
%>
</td>

<td class="td">
<%=rs("nome")%>
</td>

<td class="td">
<%=rs("data")%>
</td>

<td class="td">
<form action="firme_copia_rinomina.asp" method="post" name="firme_copia_rinomina" style="margin:0;">
<input name="firmaattuale" type="hidden" value="<%=rs("nome")%>" />
Copia e Rinomina in: <input name="firmanuova" type="text" size="25" value="<%=rs("nome")%>" />
<input name="cr" type="submit" value="ESEGUI" />
</form>	
</td>


</tr>
<%
rs.movenext
contatore = contatore + 1
Wend

%>


<tr><td colspan="4" class="td" align="center">

<%If pag > 1 Then%>
Indietro
<%End If%>
<%
Dim x
x = 1
For x = 1 To rs.PageCount
If CInt(pag) <> x Then
%>
[<%=x%>]
<%Else%>
[<%=x%>]
<%
End If
Next
%>
<%If rs.EOF = False Then%>
Avanti
<%End If%>



</td></tr>

avete consigli per ottimizzare il carico di lavoro?

grazie!

[optime]

per prima cosa cerca di capire se il problema è nella prima parte (lettura con FSO) o nella seconda (riordino e visualizzazione)

[yro]

Originariamente inviato da optime
per prima cosa cerca di capire se il problema è nella prima parte (lettura con FSO) o nella seconda (riordino e visualizzazione)

a quanto pare è nella lettura con fso...

<% 
'Server.ScriptTimeout = 120
dim objfso,objfolder,objfiles,rs,strfile,fn,fc,strPath
strPath = "\\ip-server\folder\" 
Set objFso = Server.createObject("Scripting.FileSystemObject") 
'Set objFolder = objFso.GetFolder(Server.MapPath(strPath))

Set objFolder = objFso.GetFolder(strPath) 


Set objFiles = objFolder.Files 

' Scorri tutti i file nella cartella 
for each strFile in objFiles 

fn = strFile.name
response.Write(fn)
response.Write("
")
	
next



set objfso = NOTHING
set objfolder = NOTHING
set objFiles = NOTHING
%>

va in timeout anche così

[yro]

a me andrebbe bene anche visualizzarli a pagine, facendo caricare il lavoro al server di una pagina alla volta se è possibile...

[wallrider]

hai la possibilità di loggarti direttamente sul server? se fai un dir quanto ci mette?

[optime]

di quanti files stiamo parlando?

[yro]

Originariamente inviato da optime
di quanti files stiamo parlando?

potrebbero esere 10.000 non ho idea del numero preciso...

[yro]

Originariamente inviato da wallrider
hai la possibilità di loggarti direttamente sul server? se fai un dir quanto ci mette?

ci mette tantissimo... è anche per quello che cercavo un'alternativa via web, sia per non far entrare gli utenti su server, sia per cercare di accelerare i tempi...

[optime]

questi files variano in continuazione? chi li carica?

[yro]

Originariamente inviato da optime
questi files variano in continuazione? chi li carica?

no non variano, vengono sincronizzate con un'altra cartella una tantum.