Order på filesystemobjects

Set objFilesys = Server.CreateObject(\"Scripting.FileSystemObject\")
Set objGalleries = objFileSys.getFolder(\"c:\\inetpub\\\").subFolders

for each item in objGalleries
    sFolders = sFolders & \"|\" & item.dateCreated & \", \" & item
next

arrFolders = split(sFolders,\"|\")
response.write \"<br>------------------<br>\"

arrFolders = Sort(arrFolders)

for i = 0 to Ubound(arrFolders)
    response.write arrFolders(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

skift selv lidt ud hist og pist og erstat med hvad du har brug for :)

/nuno

Det var netop for at undgå at bruge en bobblesort...

Det jeg er på udkig efter er noget der virker som \"ORDER BY\" i SQL.

/Demojoe

hmm hvad så med at oprette et recordset og smide dataene ind i?

/nuno

recordset?
Som i database?

man kan oprette et såkaldt connectionless recordset (ikke at forveksle med et disconnected recordset) - man kan selv definere felter og derefter tilføje indhold........ på dette recordet kan man så lave en rs.sort som virker som ORDER BY, som du efterlyser.

/nuno

på dette recordet = på dette recordset :)

Hej demojoe

Nuno har fat i noget. For der er nemlig IKKE nogen sort funktion til FileSystemObject. Hvilket er PISSE irriterende.
Jeg har selv rodet med det og har prøvet begge metoder. Men jeg besluttede mig for at bruge Bubblesort, da jeg syntes at det krævede for mange ressourcer på serveren at lave et connectionless recordset.

Håber det kaster lidt lys.

Hilsen
JiveFive