Sortering af FSO

<%
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, 8) = ".qxd.pdf" then
      strFileName = LCASE(file.name)
      arrFileName = Split(strFileName,".")
      ID = ArrFileName(LBound(arrFileName))
      for a = 1 to level
      Response.Write "&nbsp;"
      next
      Response.write "<tr>"
      Response.write "<td valign='top'><h4><IMG SRC='images/pdfikon.gif' align='absbottom'> <a href='" & rootpath  & "/" & LCASE(file.name) & "'>" & LCASE(file.name) & "</a>&nbsp;&nbsp;</h4></td>"
      Response.write "<td valign='top'><h4>&nbsp;&nbsp;"
      Response.write "<IMG SRC='images/email.gif' align='center'><a href='../aspqmail/SendKorrekturCL.asp?ordrenummer=" & id & "&region="&request.querystring("afd")&"'>&nbsp;Mail til kunde</a>"
      Response.write "</h4></td><td valign='top'><h4>"
      Response.write "</h4></td>"
    end if
  Response.write "</tr>"
  end if

  next
 
  set fsObj = Nothing
  set MainFolder = Nothing
  end sub

  call getPath(rootpath,level)
      %>

Ovenstående kigger ned i en mappe efter pdf-filer, piller extension fra og lister dem - mne den lister ikke alfabetisk.
Det kunne jeg godt tænke mig at få den til... Jeg har søgt og søgt og egentlig også fundet nogle gode eksempler, men kan bare ikke få det til at virke.
Så hvis der var nogen, der måske kunne tilrette koden, så den liste alfabetisk, ville jeg bive møj't gla'