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