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

  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 lo<=hi then
 t=a(lo)
 a(lo)=a(hi)
 a(hi)=t
 lo=lo+1
 hi=hi-1
    end if
  loop while (lo<=hi)

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

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

End Sub


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


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

dim matrice(1000)

for Each whatever in fc
  matrice(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)
'
' 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)&"<br>"
next

%>