Hola ..
quisiera saber que debo incluir en el siguiente codigo para que me liste por orden alfabetico:
<%
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim folder
Set folder = fso.GetFolder ("J:/webs made/new_alicun.com/portadas/audio/a/")
If folder.Size > 0 Then
Response.Write "<ul>"
total = FormatNumber(((folder.Size / 1024) / 1024), 2)
gettotal = "Audio letra A " & total & " Mb. total"
Response.Write "<b>" & gettotal
Response.Write " " & folder.Files.Count & " portadas"
Response.Write "</b> "
Response.Write "<li>"
For Each file In folder.Files
nombre = Left(file.Name, Len(file.Name) - 4)
arreglo = split(nombre,"_")
palabra = arreglo(ubound(arreglo))
nombre1 = Left(nombre, Len(nombre) - (len(palabra) + 1))
nombre1 = replace(nombre1,"_"," ")
tama = FormatNumber((file.Size / 1024), 0)
If nombre1 <> nombre2 Then
Response.Write "<li type=""circle"">"
Response.Write nombre1
nombre2 = nombre1
Response.Write "<a title="" (" & tama & " Kb.) "" href=""/portad/audio/a/"
Response.Write file.Name & """>"
Response.Write palabra
Response.Write "</a> "
Else
Response.Write " "
nombre2 = nombre1
Response.Write "<a title="" (" & tama & " Kb.) "" href=""/portad/audio/a/"
Response.Write file.Name & """>"
Response.Write palabra
Response.Write "</a> "
End If
Next
Response.Write "</ul>"
Else
Response.Write "<ul><li type=""circle"">No hay archivos subidos.</ul>"
End If
%>
Un saludo.... espero respuesta GRACIAS
