<%

response.Write("File presenti:")

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