Files collection

[DanColin]

How can I sort the list of files into alphabetical order contained in the files collection returned by the FolderObject. Thanks.

 

[snowboardr]

<%
Dim objFileScripting, objFolder
Dim filename, filecollection, strDirectoryPath, strUrlPath
strDirectoryPath=&quot;F:\inetpub\

http://wwwroot\folder\&quot;

strUrlPath=&quot;\folder\&quot;

'get file scripting object
Set objFileScripting = CreateObject(&quot;Scripting.FileSystemObject&quot
'Return folder object
Set objFolder = objFileScripting.GetFolder(&quot;F:\inetpub\

http://wwwroot\folder\&quot;)

'return file collection In folder
Set filecollection = objFolder.Files
'create the links
For Each filename In filecollection
Filename=right(Filename,len(Filename)-InStrRev(Filename, &quot;\&quot)
If filename <> &quot;default.asp&quot; then
Response.Write &quot;<A HREF=&quot;&quot;&quot; & strUrlPath & filename & &quot;&quot;&quot;>&quot; & filename & &quot;</A><BR>&quot;
End if
Next
%>

if I helped.