Ordinare alfabeticamente i files di una directory 1/3
In questo primo script, leggeremo i files da una directory e li ordineremo con la prima routine conosciuta di ordinamento, il Bubble-sort, qui inserita per motivi storici. Vedremo nei due prossimi script routine più efficienti.
<%
response.Write("File presenti:<p>")
Set fs=CreateObject("Scripting.FileSystemObject")
Set f=fs.GetFolder("c:\windows") ' directory dove leggere i files
set fc=f.Files
numero_file=0
dim files(1000)
for Each whatever in fc
files(numero_file)=Trim(whatever.name)
numero_file=numero_file+1
next
'
' Ordinamento files con tecnica bubble-sort
' (Qui menzionata per motivi storici essendo stata la prima)
'
for a=1 to numero_file-1
for b=numero_file to a step -1
if files(b-1)>files(b) then
aa=files(b-1)
files(b-1)=files(b)
files(b)=aa
end if
next
next
'
' Visualizza i files ordinati alfabeticamente
'
set fs=Nothing
for t=0 to numero_file-1
response.write files(t)&"<br>"
next
%>Per maggiori informazioni su files e directory si veda
https://www.aspitalia.com/articoli/intranet/esplora_risorse.asp
https://www.aspitalia.com/articoli/files.asp
Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
Approfondimenti
Nessuna risorsa collegata
