vis mappeindhold alfabetisk

Hvordan får jeg nedestående script til at vise mit indhold i alfabetisk rækkefølge ?
<%
sub getPath(strPath,level)
Set fsObj = CreateObject("Scripting.FileSystemObject")
Set MainFolder = fsObj.GetFolder(strPath)
Set Files = MainFolder.Files
Set Folders = MainFolder.subfolders

For Each Folder in Folders
for a = 1 to level
Response.Write "&nbsp;"
next

response.write "<IMG SRC='folder.gif' align='absbottom'>&nbsp;<B>" & UCASE(folder.name) & "</b><br>"
call getPath(strPath & "\" & lcase(folder.name),level+1)
next

For Each File in Files
if right(file.name, 4) = ".pdf" then
for a = 1 to level
Response.Write "&nbsp;"
next

response.write "<IMG SRC='pdfikon.gif' align='absbottom'> <a href='" & rootpath  & "/" & LCASE(file.name) & "'>" & LCASE(file.name) & "</a><br>"
end if
next

set fsObj = Nothing
set MainFolder = Nothing
end sub
   
call getPath(rootpath,level)
%>