codice:
<%@LANGUAGE = VBScript%>
<%
' VARIABILI DELL'APPLICAZIONE
Dim cartella, fso, apri, file, alfa, i, arr_alfa
' STABILISCO IL NOME DELLA CARTELLA A CUI ACCEDERE
cartella = "directory"
' CREO L'OGGETTO FILE SYSTEM OBJECT
Set fso = CreateObject("Scripting.FileSystemObject")
' ACCEDO ALLA CARTELLA SPECIFICATA
Set apri = fso.GetFolder(Server.MapPath(cartella))
' CREO L'ORDINE DI LETTURA CHE MI INTERESSA
alfa = "a b c d e f g h i j k l m n o p q r s t u v w x y z"
' DIVIDO LA STRINGA alfa IN UN ARRAY DI STRINGA
arr_alfa = Split(alfa, " ")
' LEGGO TUTTI I FILE IN ORDINE ALFABETICO
' IN FUNZIONE DELL'ORDINE STABILITO NELLA VARIABILE alfa
For i = 0 To Ubound(arr_alfa)
For Each file In apri.Files
If arr_alfa(i) = Left(file.name, 1) Then
Response.Write file.name & "
"
End If
Next
Next
' UN PO DI PULIZIA...
Set fso = Nothing
Set apri = Nothing
%>