Espero te sirva, tendrias que modificarlo a tu gusto en la parte de enlace claro esta.
Cita: MapPath = Server.MapPath("Tu_Directorio/")
Set fso = CreateObject("Scripting.fileSystemObject")
Set fold = fso.getFolder(MapPath)
fileCount = fold.subfolders.count
dim fNames()
redim fNames(fileCount)
cFcount = 0
For each folder in fold.subfolders
cFcount = cFcount + 1
fNames(cFcount) = lcase(folder.name)
Next
For tName = 1 To fileCount
For nName = (tName + 1) To fileCount
IF strComp(fNames(tName),fNames(nName),0)=1 Then
buffer = fNames(nName)
fNames(nName) = fNames(tName)
fNames(tName) = buffer
End IF
Next
Next
For i = 1 To fileCount
'Aca es donde necesitas modificarlo a tu gusto, yo puce un simple enlace
Response.write "<a href='enlace.asp'>" &fNames(i)& "</a><BR>"
Next