maxranzy ha scritto:

Ciao,

dovrei fare una pagina che mi elenchi alcuni file presenti sul server.
Per esempio io metto sul server dei file del tipo 200601.htm, 200602.htm, ecc e io devo fare una pagina che mi elenchi questi file, quindi mi serve una ricerca su filesytem del tipo 2006*.htm

come posso fare?

grazie
max

Prova questa funzione

<% function mostraFile( folder)

Dim fso, f, f1, fc, s, mIndirizzo
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Server.MapPath(folder))
Set fc = f.Files
' pDimensioniCartella= formatNumber( f.size/(1024*1024),2) & " Mb"

For Each f1 in fc
mIndirizzo = folder & "/" & f1.name
if mid(f1.name, inStrRev(f1.name, ".")+1,3)= "htm" And left(f1.name, 4) = "2006" then
%>
<tr bgcolor="#006BDE">
<TD class="cBianco12"><%=f1.name %></TD>
<TD class="cBianco12"><%=f1.DateLastModified %></TD>
<TD class="cBianco12" align="right"><%=formatNumber( f1.size/(1024*1024),2) & " Mb" %></TD>
</tr>
<%
end if


Next
Set fso = nothing

end function%>

per utilizzarla nella pagina

<table><% mostraFile("/") %></table>

Saluti
pippopd