FSO

Koden

Function ShowImageForType(strName)
    Dim strTemp

    strTemp = strName

    If strTemp <> "dir" Then
        strTemp = LCase(Right(strTemp, Len(strTemp) - InStrRev(strTemp, ".", -1, 1)))
    End If

    'Response.Write strTemp

    Select Case strTemp
        Case "asp"
            strTemp = "asp"
        Case "dir"
            strTemp = "dir"
        Case "htm", "html"
            strTemp = "htm"
        Case "gif", "jpg"
            strTemp = "img"
        Case "txt"
            strTemp = "txt"
        Case Else
            strTemp = "misc"
    End Select

    strTemp = "<IMG SRC=""http://www.infostat.dk/images/dir_" & strTemp & ".gif"" WIDTH=16 HEIGHT=16 BORDER=0>"

    ShowImageForType = strTemp
End Function



Dim strPath
Dim objFSO
Dim objFolder
Dim objItem 
dim myRC

set myrc = createobject("adodb.recordset")

myrc.fields.append "Dato",7
myrc.fields.append "Name",202,20
myrc.open

strPath = "./"

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")


Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
For Each objItem In objFolder.SubFolders
    myrc.addnew
    myrc.fields("Dato").value = FormatDateTime(objItem.name)
    myrc.fields("Name").value = objItem.name
    myrc.update
next
myrc.sort = "Dato DESC"

Jeg bruger den i et dir hvor mappe navnene er:

01-04-2002
01-03-2002
01-02-2002

osv.
Problemet er at når jeg soter så gør den det kun på de første 2 tal og altså ikke på månede, og så hjælper det jo ikke ret meget at lave en sort når den kun gør det på dage.
Så hvad gør jeg??