FSO: vis alle JPG

det er ikke svært

tmpDir = "c:\whateveryoulike"

Set oFso = Server.CreateObject("Scripting.FileSystemObject")
        Set oFlder = oFso.GetFolder(tmpDir)
        'Response.Write oFlder & "<br>"
        Response.Write "<table border=0 cellspacing=0 cellpadding=5>"
        Response.Write "<tr><td colspan=2><a href=""findpix.asp?elem=" & elem & """>Vis mapper</a></td></tr>"
        Response.Write "<form action=""delfile.asp"" method=""post"" name=""dform"">"
        Response.Write "<input type=""hidden"" name=""tDir"" value=""" & tDir & """><input type=""hidden"" name=""sDelpic"">"
        Response.Write "</form>"   
        tDirsize = oFlder.Size
        Response.Write "<tr><td colspan=2><b>Diskforbrug: " & FormatNumber(tDirsize/(1024*1024),2) & " Megabyte.</b></td></tr>"
        Response.Write "<tr><td valign=top colspan=2><a href=""java script: void(0);"" onclick=""updElem('');"">Ikke noget billede</a></td></tr>"
        For Each oFile in oFlder.files
            tFname = oFile.Name
            Response.Write "<tr><td valign=top><a href=""java script: void(0);"" onclick=""updElem('" & tDir & "/" & tFname & "');"">Vælg</a><br><br>"
            Response.Write "<a href=""java script: delPic('" & tFname & "');"">Slet</a>"
            Response.Write "</td><td valign=top>"
            If Right(tFname, 4) = ".jpg" OR Right(tFname, 4) = ".jpg" OR Right(tFname, 5) = ".jpeg" OR Right(tFname, 4) = ".gif" Then
                Response.Write "<img src=""" & tmpDir & "/" & tFname & """>"
            Else
           
            End If
            Response.Write "</td></tr>"
            Response.Write "<tr><td>&nbsp;</td><td>" & tFname & "</td></tr>"
        Next
        Response.Write "</table>"
        Response.Write "<table border=0 cellspacing=0 cellpadding=5 width=""100%"">"
        Response.Write "<form action=""uplfile.asp"" method=""post"" ENCTYPE=""multipart/form-data"">"
        Response.Write "<input type=""hidden"" name=""tDir"" value=""" & tDir & """>"
        Response.Write "<tr><td><input type=""file"" name=""pic1"" class=""inp""></td></tr>"
        Response.Write "<tr><td><input type=""submit"" class=""but"" value=""Upload""></td></tr>"
        Response.Write "</form></table>"

    Set oFso = Nothing

<%
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.MapPath("shot/small/"))

    Set FolderFiles = Folder.Files
   
    For Each File In FolderFiles
        If inStr(File,".jpg") or inStr(file,".gif") Then
        Response.Write File.Name & vbCrlf
        End If
    Next
%>

<%
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(Server.MapPath(Request.ServerVariables("PATH_TRANSLATED"))

    Set FolderFiles = Folder.Files
   
    For Each File In FolderFiles
        If inStr(File,".jpg") or inStr(file,".gif") Then
        Response.Write File.Name & vbCrlf
        End If
    Next
%>

Even

du skal bruge dette ca.

For Each oFile in oFlder.files
            tFname = oFile.Name
            Response.Write "<tr><td valign=top><a href=""java script: void(0);"" onclick=""updElem('" & tDir & "/" & tFname & "');"">Vælg</a><br><br>"
            Response.Write "<a href=""java script: delPic('" & tFname & "');"">Slet</a>"
            Response.Write "</td><td valign=top>"
            If Right(tFname, 4) = ".jpg" OR Right(tFname, 4) = ".jpg" OR Right(tFname, 5) = ".jpeg" OR Right(tFname, 4) = ".gif" Then
                Response.Write "<img src=""" & tmpDir & "/" & tFname & """>"
            Else
           
            End If
            Response.Write "</td></tr>"
            Response.Write "<tr><td>&nbsp;</td><td>" & tFname & "</td></tr>"
        Next

bla bla bla

http://activedeveloper.dk/aspdigital/kapitel1/filesystem1.asp

.....
og det lister alle filer i et givent bibliotek som billeder..(om det er det eller ej?????)

check din source............................

Takker...

men der var kun virus der gav hvad jeg EGENTLIG bad om

Ace