List files alphabetically

[exodus300]

How to sort alphabetically the results of the following code? (Currently they are sorted in some other order, most probably date last accessed/modified)

<ul>
<%
Dim oFSO 
Set oFSO= Server.CreateObject(&quot;Scripting.FileSystemObject&quot;) 
Dim rootFolder
Set rootFolder = oFSO.GetFolder(&quot;C:\My Documents\Music&quot;)
Dim files, file, fileCount
Set files = rootFolder.Files
For Each file in files        
	If LCase(Mid(file.Name, Len(file.Name) - 2, 4)) = &quot;mp3&quot; Then
		Response.Write &quot;<li><a href=&quot;&quot;&quot; & file.name & &quot;&quot;&quot;>&quot; & LCase(Mid(file.Name, 1, Len(file.Name) - 4)) & &quot;</a>&quot;
	End If
Next 
%>
</ul>

[Thanks in advance|Hope I helped you]
Exodus300

 

[onpnt]

a quick answer would be to add the names to a array and sort them that way.

http://www.evolt.org/article/Quick_and_Dirty_ASP_Array_Sorting/17/21724/

this script shows you with this same task

http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=118

_________________________________________________________
_{$str = "sleep is good for you. sleep gives you the energy you need to function";
$Nstr = ereg_replace("sleep","coffee",$str); echo $Nstr;}

http://www.onpntwebdesigns.com

[/sub]