ordine da nome file

[djjunior]

Carissimi
volevo un vs. aiuto, se possibile, ho uno script che pesca vari file pdf tramite dalle cartelle e sottocartelle mediante alcuni parametri.
Ora volevo sapere se prendendo porzione (tramite replace) dal nome dei file, li posso avere elencati a video in ordine di numerico crescente?
Il nome dei file sono tipo: ABCEDF_001203.pdf o ABCEDF_001204.pdf e via via.
Potete aiutarmi?
Ecco lo script:

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)

for each x in sf.files

	next
set sf=nothing
set fo=nothing
set fs=nothing

Grazie 1000
G.

[cavicchiandrea]

Per odinare i file di una cartella devi usare un recorset disconesso (e se la memoria non mi inganna proprio tu hai già una discussione in merito)

[djjunior]

si andrea ricordi bene, ma ho provato ad applicare il recordset disconesso a questo script ma non mi funziona.....
potresti aiutarmi????
Grazie

[cavicchiandrea]

Originariamente inviato da djjunior
si andrea ricordi bene, ma ho provato ad applicare il recordset disconesso a questo script ma non mi funziona.....
potresti aiutarmi????
Grazie

Lo trovo al quanto improbabile, posta la pagina completa, lo script asp e link alla pagina pubblica

[Vincent.Zeno]

domandina preliminare:
i nomi dei file da passare hanno sempre la stessa identica struttura come da esempio?
oppure, se non è così, quale è la costante nei nomi?

inoltre: tu vorresti ordinarli per numero, ovvero la parte finale del nome, giusto?

edit
non l'ho mai fatto ma secondo me puoi popolare un'array e da questa ricavare l'ordine dei file da visualizzare

[djjunior]

Grazie 1000 vincent per l'aiuto che potrai darmi.
Si, i nomi del file hanno sempre la stessa struttura cioè: ABCEDF_001203.pdf o ABCEDF_001204.pdf

Si, vorrei ordinarli prendendo l'ultima parte cioè: 001203 o 001204

Grazie ancora....
G.

[Vincent.Zeno]

direi di fare così:
con un recordset disconnesso (o un ciclo for se preferisci) leggi il contenuto (per te il nome del file) in base al nome del file "pulito", ovvero filtrandoli in base alla parte finale del nome
direi che questo esempio è pienamente esaustivo
http://www.roubaixinteractive.com/Pl...y=Size#fsoSort

[djjunior]

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.

<%
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.

[djjunior]

Nessun aiuto??
Grazie

[Alethesnake]

sort e visualizzazione devi farli fuori dal primo for/next:

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     
next 

custRs.Update

custRs.Sort = "nomes Asc"

custRs.MoveFirst()

Do While Not custRs.EOF

    Response.Write (custRs(0) & "
")

custRs.MoveNext()
Loop

http://www.aspitalia.com/script/393/...rdset-ADO.aspx

Anche se a mio avviso in questo script mancava l'update.