Sorter?

tdaugaard, har vist lavet et script der kan sortere filer.. www.tdaugaard.dk/x/fso_sortfiles.as_

Ja, men det skal være sådan at man kan klikke på filerne, så den downloader / viser dem!

Smid dine data i et array og brug en bubblesort...

dvs. dit script ændres til følgende:

<%
Function ShowFolderList()
Dim i,tmp
tmp = \"\"
i = 0
Dim arrFiles(100)
\'Jeg satser på at der ikke er over 100 filer ellers korriger
folderspec = server.mappath(\".\")
Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
Set folder = fso.GetFolder(folderspec)
Set foldercollection = folder.Files
For Each file in foldercollection
arrFiles(i) = file.name
i = i + 1
Next

\' Kald en bubblesort, se eksempel på
\' http://www.activeserverpages.dk/julekalender/julegaver/bubble.asp

for q = 0 to i
tmp = tmp & \"<a href=\'\" & arrFiles(i) & \"\'>\" & arrFiles(i) & \"</A><BR>\"
End Function
%>

Hov der sneg sig lige en fejl ind i den sidste løkke:

for q = 0 to i
tmp = tmp & \"<a href=\'\" & arrFiles(q) & \"\'>\" & arrFiles(q) & \"</A><BR>\"
next

Jeg er helt lost !!  :)
Jeg er ret grøn i ASP, så jeg forstår ikke meget af det du forklarer dér.

Ok så får du en færdig løsning:

<%
Private Sub BubbleSort(byRef arrTemp, byVal sDim, byVal sSort)

\' Developer:    Dennis Knappe (dennis@activeserverpages.dk)

    Dim n, y,t,tmpTop, tmpVal, iBookMark, BubbleElement
    BubbleElement = False

    For n = 0 To UBound(arrTemp,2)
        tmpTop = arrTemp(sDim,n)
        iBookmark = n

        For y = n To UBound(arrTemp,2)
            If sSort = 0 Then
                If (tmpTop > arrTemp(sDim,y)) Then
                    BubbleElement = True
                End If
            Else
                If (tmpTop < arrTemp(sDim,y)) Then
                    BubbleElement = True
                End If
            End If

            If BubbleElement Then
                tmpTop = arrTemp(sDim,y)
                iBookmark = y
                BubbleElement = False
            End If
        Next

        For t = 0 to UBound(arrTemp, 1)
            tmpVal = arrTemp(t, n)
            arrTemp(t, n) = arrTemp(t, iBookmark)
            arrTemp(t, iBookmark) = tmpVal
        Next
    Next

End Sub

Function ShowFolderList()
Dim i,tmp
tmp = \"\"
i = 0
Dim arrFiles(100)
\'Jeg satser på at der ikke er over 100 filer ellers korriger
folderspec = server.mappath(\".\")
Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
Set folder = fso.GetFolder(folderspec)
Set foldercollection = folder.Files
For Each file in foldercollection
arrFiles(i) = file.name
i = i + 1
Next

Call BubbleSort(arrFiles, 0, 1)

for q = 0 to i
tmp = tmp & \"<a href=\'\" & arrFiles(i) & \"\'>\" & arrFiles(i) & \"</A><BR>\"
ShowFolderList = tmp
End Function

Response.write ShowFolderList()
%>   

Du skal have tak!