Liste filer i mappe

Noget i denne stil?

<%
Function ShowFolderList()
    thumpwidth = \"50\"
    thumpheight = \"50\"
    counter = 4
    counter2 = 0
    folderspec = server.mappath(\".\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set folder = fso.GetFolder(folderspec)
    Set foldercollection = folder.Files
    For Each file in foldercollection
    if lcase(right(file, 3)) = \"jpg\" OR lcase(right(file, 3)) = \"gif\" then
    tmp = tmp & \"<a href=\'\" & file.name & \"\'><img src=\'\" & file.name & \"\' width=\'\" & thumpwidth & \"\' height=\'\" & thumpheight & \"\'></A>\"
    counter2 = counter2 + 1
    if counter2 = counter then
    tmp = tmp & \"<BR>\"
    counter2 = 0
    end if
    end if
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

<%
Function ShowFolderList()
    folderspec = server.mappath(\".\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set folder = fso.GetFolder(folderspec)
    Set foldercollection = folder.Files
    For Each file in foldercollection
    tmp = tmp & \"<a href=\'\" & file.name & \"\'>\" & file.name & \"</A><BR>\"
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

<%
                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
%>


Lavet af tdaugaard

Skovtrold >> Nice en jeg har lavet, men den finder kun billeder.

1. der stod ikke hvilke filer det drejede sig om.
2. jeg har ikke skrevet jeg har lavet det.

bjarke-b -> det var lige det jeg manglede TAK

Skovtrold >> Jeg sagde også bare at den var pæn.

OK, så.. :-)