Sort by name/number

Hejza!
Jeg jhar sådan en fiks lille kodesag, der gør det muligt at kigge efter pdf-filer i en folder...

      <%
      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><h4><IMG SRC='pdfikon.gif' align='absbottom'> <a href='" & rootpath  & "/" & LCASE(file.name) & "'>" & LCASE(file.name) & "</a>&nbsp;&nbsp;</h4></td>"
          Response.write "<td><h4>&nbsp;&nbsp;<IMG SRC='email.gif' align='center'><a href='../../aspqmail/korrekturmail.asp?id=" & id & "&region=01_reg'>&nbsp;Mail til kunde</a></h4></td>"
          Response.write "</tr>"
        end if
        next
        set fsObj = Nothing
        set MainFolder = Nothing
      end sub

      call getPath(rootpath,level)
      %>


Kan man tilføje lidt meree kode, så jeg også får liste indholdet alfabetisk/nummerisk ??