Visualizzare ed ordinare file in una cartella

[SuperMariano81]

ciao!
utilizzo questo comodo script (trovato sul forum) per visualizzare, in una pagina asp, i file di una cartella:

	
dir =  "/IMMAGINI"
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.mappath(dir))
Set file3 = file2.Files
cont = 0
For Each file in file3

funziona, solo me li visualizza in ordine alfabetico, li vorrei in ordine di data.
si può?

[Lak3d]

Certo che si può...
ma che data? quella di creazione? di ultima modifica? di ultimo accesso?

[SuperMariano81]

Originariamente inviato da Lak3d
Certo che si può...
ma che data? quella di creazione? di ultima modifica? di ultimo accesso?

creazione o al max ultima modifica.

[Lak3d]

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

Se non capisci qualcosa chiedi pure...
ps: ti basta cambiare DateCreated con LastModifies e avrai per ultima modifica...

[SuperMariano81]

per questo è l'ordinamento del recordset, giusto?

custRs.Sort = "data DESC"

io lo vorrei dei file nella cartella...

dalla pagina che hai postato si prende i valori in un db e poi li mostra ordinati, io vorrei solamente mostrare i file di una dir, ordinati per data di creazione...

[Lak3d]

Infatti è quello che fa, ma per ordinarli li sbatte in un database contenente un campo apposito Data/Ora... proprio perchè non esiste una funzione che ordina per data...

Se hai un attimo di pazienza provo a costruirtela...

[SuperMariano81]

Originariamente inviato da Lak3d
Infatti è quello che fa, ma per ordinarli li sbatte in un database contenente un campo apposito Data/Ora... proprio perchè non esiste una funzione che ordina per data...

Se hai un attimo di pazienza provo a costruirtela...

E' perchè non volevo passare da un db, cmq grazie se hai tempo e voglia ogni aiuto è ben accetto!!!

[Lak3d]

Eccola :berto:

<%
Set fso=CreateObject("Scripting.FileSystemObject")
set Folder= fso.GetFolder("c:\inetpub\wwwroot")
Set files= Folder.Files

i=0
For each F in files
   Redim Preserve Arr(i)
   Arr(i)= F.DateCreated & " " & F.Name
   i=i+1
Next

For i=0 to Ubound(Arr)
   Redim Preserve str(i)
   str(i)=Cdbl(Replace(Mid(Arr(i),7,4) & Mid(Arr(i),4,2) & Left(Arr(i),2) & Replace(Mid(Arr(i),12,8), ".", "")," ",""))
Next

For j=0 to Ubound(str)-1
   For x=0 to Ubound(str)-1
      if str(x)>str(x+1) then
         temp=str(x)
         temp2=Arr(x)
         str(x)=str(x+1)
         Arr(x)=Arr(x+1)
         str(x+1)=temp
         Arr(x+1)=temp2
      End if   
   Next
Next

For i=0 to Ubound(Arr)
   Response.Write Arr(i) & "
"
Next
%>

Non faccio altro che prendere data e ora, impostarle in formato numerico anno/mese/giorno/ore/minuti/secondi e lordino i numeri risultanti...

Comunque credimi, è tutto tempo perso quando puoi farlo direttamente nel db, sopratutto se hai tanti file da ordinare...

ps: uso il bubblesort per farla smeplice, è un algoritmo di ordinamento terra terra...
Se vuoi stamparli al contrario non devi far altro che scorrere al contrario l'array:

For i=Ubound(Arr) to 0 Step -1
   Response.Write Arr(i) & "
"
Next

Ciaooo!

[SuperMariano81]

Originariamente inviato da Lak3d
Eccola :berto:

<%
Set fso=CreateObject("Scripting.FileSystemObject")
set Folder= fso.GetFolder("c:\inetpub\wwwroot")
Set files= Folder.Files

i=0
For each F in files
   Redim Preserve Arr(i)
   Arr(i)= F.DateCreated & " " & F.Name
   i=i+1
Next

For i=0 to Ubound(Arr)
   Redim Preserve str(i)
   str(i)=Cdbl(Replace(Mid(Arr(i),7,4) & Mid(Arr(i),4,2) & Left(Arr(i),2) & Replace(Mid(Arr(i),12,8), ".", "")," ",""))
Next

For j=0 to Ubound(str)-1
   For x=0 to Ubound(str)-1
      if str(x)>str(x+1) then
         temp=str(x)
         temp2=Arr(x)
         str(x)=str(x+1)
         Arr(x)=Arr(x+1)
         str(x+1)=temp
         Arr(x+1)=temp2
      End if   
   Next
Next

For i=0 to Ubound(Arr)
   Response.Write Arr(i) & "
"
Next
%>

Non faccio altro che prendere data e ora, impostarle in formato numerico anno/mese/giorno/ore/minuti/secondi e lordino i numeri risultanti...

Comunque credimi, è tutto tempo perso quando puoi farlo direttamente nel db, sopratutto se hai tanti file da ordinare...

ps: uso il bubblesort per farla smeplice, è un algoritmo di ordinamento terra terra...
Se vuoi stamparli al contrario non devi far altro che scorrere al contrario l'array:

For i=Ubound(Arr) to 0 Step -1
   Response.Write Arr(i) & "
"
Next

Ciaooo!

ed io che la pensavo più semplice!
grazie mille, ti devo una birretta!!!
dopo lo provo e ti faccio sapere, grazie 1000

[Lak3d]

beh, bastava che chi ha creato il FileSystemObject metteva un metodo in più e dovevi solo richiamarlo con la notazione punto Data.Ordina()... dietro ad ogni metodo comunque ci sono funzioni.

diciamo che potrebbe essere ottimizzata volendo... basterebbe innanzitutto usare algoritmi di ordinamento più efficienti, e invece di gestire due array, gestirne uno soltanto anche se a conti fatti poi una volta ordinato lo devi ribaltare per tornare al formato iniziale.
Io ne uso due, l'originale e quello di supporto nel quale cambio formato alle date e le trasformo in un valore numerico per ordinarle. Nel mometo che ordino i valori ordino contemporaneamente anche le stringhe originali...