Sortere FileSystemObject output ..

Med udgang i http://www.eksperten.dk/spm/31745 vil jeg selv spørge om det sammen, hvordan sorterer jeg outputtet fra FileSystemObject når vi snakker filer ? Jeg har følgende kode:

<%
    Set fsoSystem = CreateObject(\"Scripting.FileSystemObject\")
    Set fsoFiles = fsoSystem.GetFolder(Server.MapPath(strBaseDir & strShow))
    Set fsoFolders = fsoSystem.GetFolder(Server.MapPath(strBaseDir & strShow))
               
    For Each fFolder in fsoFolders.Files
        strName = LCase(fFolder.Name)

        If Right(strName, 4) = \".jpg\" Then Response.Write \"<img src=\'\" & strBaseDir & strShow & \"/\" & strName & \"\' width=253 height=190 alt=\'\" & strName & \"\'>\": intPics = intPics + 1
        If intPics > 0 And Int(intPics Mod 3) = 0 Then Response.Write \"<br>\"
    Next

    Set fsoFolders = Nothing
    Set fsoFiles = Nothing
    Set fsoSystem = Nothing
%>

Hvor jeg kun tager .jpg filer, men hvordan kan jeg få FileSysteObject til at sortere filerne sådan at jeg får f.eks.

c01.jpg
c02.jpg
c03.jpg
..

istedet for f.eks.

c02.jpg
c01.jpg
c03.jpg

??

Jeg søger en LØSNING! Så, først til mølle (med en brugbar, funktionel løsning) får point ..