FSO: Sortering af Filer

Du kan putte filnavnene ind i et array, og sortere det

der findes ikke nogen indbygget funktionalitet i vbscript til det - men man kan bruge en bubble-sort - fx:

Set FSO = Server.CreateObject(\"Scripting.FileSystemObject\")
Set FileObject = FSO.getFolder(Server.Mappath(\"Programmering/\" & strType & \"/\"))
Set FileCollection = FileObject.Files


For Each File in FileCollection

  sFiles = sFiles & \"|\" & File.Name

Next


arrFolders = split(sFiles,\"|\")

arrFiles = Sort(arrFiles)

for i = 0 to Ubound(arrFiles)
    response.write arrFiles(i) & \"<br>\"
next


Function Sort(inArr)
    KeepChecking = TRUE
    Do Until KeepChecking = FALSE
        KeepChecking = FALSE
        For I = 0 to UBound(inArr)
            If I = UBound(inArr) Then Exit For
            If inArr(I) > inArr(I+1) Then
                FirstValue = inArr(I)
                SecondValue = inArr(I+1)
                inArr(I) = SecondValue
                inArr(I+1) = FirstValue
                KeepChecking = TRUE
            End If
        Next
    Loop
    Sort = inArr
End Function

hvis du så skifter ud der hvor du bruger andre navne

/nuno

Jeg har lavet noget lignende med sortering efter dato i http://www.eksperten.dk/spm/76614

Jeg siger mange tak, nuno!
Det pænt af dig at lave hele koden!!