2 spm. vedr. filhåndtering

1) www.tdaugaard.dk/x/default.as_

<%
                strExts = \"as_,zip,ace,jpg,gif,bmp,png,txt\"
                arrExts = Split(strExts, \",\")

                Set fsoSystem = CreateObject(\"Scripting.FileSystemObject\")
                Set fsoFolders = fsoSystem.GetFolder(Server.MapPath(\".\"))
                set fso = fsosystem.Drives
               
                For intIndex = 0 To UBound(arrExts)
                    For Each fFolder In fsoFolders.Files
                        strName = LCase(fFolder.Name)
                        intSize = FormatNumber(fFolder.Size, 0, 0, , True)

                        If LCase(arrExts(intIndex)) = LCase(Right(strName, 3)) Then
                            Select Case LCase(Right(strName, 3))
                                Case \"asp\"
                                Case \"jpg\", \"gif\", \"bmp\", \"png\": Response.Write \"<a href=\'\" & strName & \"\'><img src=\'gfx/img.gif\' border=0> \" & strName & \" (\" & intSize & \" bytes)</a><br>\"
                                Case \"zip\", \"ace\": Response.Write \"<a href=\'\" & strName & \"\'><img src=\'gfx/com.gif\' border=0> \" & strName & \" (\" & intSize & \" bytes)</a><br>\"
                                Case \"as_\":  Response.Write \"<a href=\'\" & strName & \"\'><img src=\'gfx/asp.gif\' border=0> \" & strName & \" (\" & intSize & \" bytes)</a><br>\"
                                Case \"txt\":  Response.Write \"<a href=\'\" & strName & \"\'><img src=\'gfx/txt.gif\' border=0> \" & strName & \" (\" & intSize & \" bytes)</a><br>\"
                                Case Else:    Response.Write \"<a href=\'\" & strName & \"\'><img src=\'gfx/no.gif\' border=0> \" & strName & \" (\" & intSize & \" bytes)</a><br>\"
                            End Select
                        End If
                    Next
                Next

                Set fsoFolders = Nothing
                Set fsoSystem = Nothing
%>

http://www.activeserverpages.dk/aspdigital/kapitel6/upload.asp

Ok .. kan man sortere disse filer?

1) Kan man på nogen måde sortere filerne?

2) Hvad gerne vil have, er at jeg kan lægge en kopi af filen ud på serveren. Jeg ved ikke hvad den version du har linket til gør andet end at den viser billedet, men den virker ikke helt efter min hensigt!

theportal:> hvis du smider dem i et array og finder en sorting rutine, så ja ..

1) ok...

2) tdaugaard>>kender du noget til at uploade?

theportal:> jeg har noget der uploader uden brug af komponent .. det er det jeg bruger på FOTX til billede upload. Er det sådan noget du tænker på ?

Hent og sorter alle filer i en mappe:

<%
    Set fsoSystem = CreateObject(\"Scripting.FileSystemObject\")
    \'Set fsoFolders = fsoSystem.GetFolder(Server.MapPath(\"/diverse\"))
    Set fsoFolders = fsoSystem.GetFolder(\"c:\\diverse\\\")

    ReDim arrFiles(0)

    For Each fFolder In fsoFolders.Files
        arrFiles(UBound(arrFiles)) = LCase(fFolder.Name)
        ReDim Preserve arrFiles(UBound(arrFiles) + 1)
    Next

    ReDim Preserve arrFiles(UBound(arrFiles) - 1)

    Set fsoFolders = Nothing
    Set fsoSystem = Nothing

    \' Sorter fil array
    Limit = UBound(arrFiles)
    Do
        iSwitch = False
        For row = 0 To (Limit - 1)
            If arrFiles(row) > arrFiles(row + 1) Then
                strCopy = arrFiles(row )
                arrFiles(row) = arrFiles(row + 1)
                arrFiles(row + 1) = strCopy

                iSwitch = row
            End If
        Next

        Limit = iSwitch
    Loop While iSwitch

    \' Udskriv fil array
    for index = 0 to ubound(arrfiles)
        Response.Write arrfiles(index) & \"<br>\"
    next
%>

TDaugaard >> Undskyld svartiden. Har lige været til frokost. Mht. til upload - ja, men jeg har fundet en kode nu! ellers tak!

Jeg tester lige den der sorting procedure du har lavet! ... Plz wait!

theportal:> det er helt okay :-)
Nå okay .. så behøver jeg ikke gøre min upload rutine klar ? (var ellers lige i gang *s*)

Jo - nu jeg tænker mig om vil jeg egentlig gerne have at du laver upload rutinen! Jeg fatter nemlig *zit* af den kode jeg har nu!!! :o)

Mht. til sorteringen >> Det virker sgu! Tak!

:-) Jeg gør den færdig så ... og se\'følig virker det *S*

By the way - kan man også godt tilføje mapper til listen?

Glem det sidste spm. - har fundet ud af det!

*S* oki ...

http://www.tdaugaard.dk/x/spm70272.zip

der ligger begge dele i (fil tingen og upload..)

thanks! checking it out...

Det virker sgu! :)

Tusind tak for hjælpen tdaugaard!
Der bliver en stor del af pointene til dig!

Mvh The Portal

Det var så lidt :-)