22 messaggi dal 25 gennaio 2002
Ciao c'è nessuno che sa dirmi come ordinare i file presenti in una DIR per la data di creazione o modifica??

Vi prego aiutatemi è urgente!!

Prima di visualizzarli potresti metterli in un array e usare un algoritmo di quicksort usando la data di creazione come chiave di ordinamento. Per mostrarli cicla sull' array.

---[ www.digiscout.it ]---

"This message was written using 100% recycled electrons"
1.605 messaggi dal 06 settembre 2002
leggi questi script

http://www.aspitalia.com/liste/usag/script.aspx?ID=44
http://www.aspitalia.com/liste/usag/script.aspx?ID=45
http://www.aspitalia.com/liste/usag/script.aspx?ID=46

ordinanoi file per nome , puoi utilizzarli modificndo l'ordinamento con la data

FORZA LA MAGICA ROMA

FORZA LA MAGICA ROMA
22 messaggi dal 25 gennaio 2002
Ciao a tutti!

Vi ringrazio...

purtroppo avevo già vito questi script ma non ci riesco davvero a modificarli!!

Potreste aiutarmi!!

Ve ne sarei davvero grato!

A presto!

1.605 messaggi dal 06 settembre 2002
fai così

<%
' Funzione quick-sort.
' Script creato da Zani Andrea
'
Sub QSort(a,ilo,ihi,b)

lo=ilo
hi=ihi
mezzo=a((lo+hi)/2)

do
while (a(lo)<mezzo)
lo=lo+1
wend

while (a(hi)>mezzo)
hi=hi-1
wend

if CDate( lo)<=CDate( hi) then
t=a(lo)
tb=b(lo)
a(lo)=a(hi)
b(lo)=b(hi)

a(hi)=t
b(hi)=tb
lo=lo+1
hi=hi-1
end if
loop while (lo<=hi)

if hi>ilo then call QSort(a,ilo,hi,b)

if lo<ihi then call QSort(a,lo,ihi,b)

End Sub


response.Write("Files presenti:<p>")


Set fs=CreateObject("Scripting.FileSystemObject")
Set f=fs.GetFolder("c:\")
set fc=f.Files
numero_file=0

dim matrice(1000)
dim matriceNomi(1000)

for Each whatever in fc
matrice(numero_file)=CDate(whatever.DateCreated)
matriceNomi(numero_file)=trim(whatever.Name)
numero_file=numero_file+1
next
'
' Ordinamento files con tecnica quick-sort
' una delle più veloci routine di ordinamento conosciute
'


call QSort(matrice,0,numero_file,matriceNomi)
'
' Visualizza i files ordinati alfabeticamente
'
set fs=Nothing
for t=1 to numero_file ' la lista sarà presente dall'elemento "1" dell'array
response.write matrice(t) & "-" & matriceNomi(t) &"<br>"
next

%>



comunque non è stato molto complesso modificare lo script

FORZA LA MAGICA ROMA

FORZA LA MAGICA ROMA
22 messaggi dal 25 gennaio 2002
Ti ringrazio...davvero!!

Ora lo provo!!

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.