carissimi vincent e andrea
ecco il codice che ho adattato al mio, ma mi stampa tutti i nomi dei file, ma no nell'ordine indicato.
Potete darci un'occhiata per sapere cosa sbaglio?
Grazie
G.
codice:
<%
dim fs,fo,x,nome,extfile,sf,folder
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("d:\inetpub\webs\miosito\public\pdf\")

for each folder in fo.SubFolders
set sf = fs.GetFolder("d:\inetpub\webs\miosito\public\pdf\"&folder.Name)

set custRs = Server.CreateObject("ADODB.Recordset")
custRs.Fields.Append "nomes", 200, 300 ' adVarChar
custRs.Fields.Append "data", 7 ' Date

custRs.Open

nome = rs.fields("codice_cliente")

for each x in sf.files
extfile = left(split(x.Name,".pdf")(0),14)

custRs.AddNew
custRs("nomes") = MID(x.name,41,6)
custRs("data") = x.DateCreated     

custRs.Sort = "nomes Asc"
%>
STAMPA FILE
<%
next 
 
   next 
   
set sf=nothing
set fo=nothing
set fs=nothing

%>
Grazie.
G.