Opdelt i rækker og kolonner med mapper og filer.
Du har jeg sidet og prøvet i et stykke tid for at få det til at virke med det virker ikke...Jeg har brugt den her kode til at hentet mine mapper og de filer der skal vises :
<%
sti = "Cars"
ShowSub = sti & request("ShowSub")
ShowSubLink = request("ShowSub")
strPathInfo = ShowSub
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
For each Folder in objFolder.SubFolders
If Left(Folder.Name,1)<>"_" Then
Response.Write "<a href=""" & CurFile & "?ShowSub=" & ShowSubLink & "/"
Response.Write(Replace(Folder.Name, " ", "%20"))
response.write """>"
Response.Write Folder.Name
Response.Write "<br>"
End if
Next
Set objFSO = Nothing
%>
Desuden vist størrelsen på filerne i dette script :
<%
'Response.Write ShowSub & "<br>"
'Response.Write strPhysicalPath
'Response.End
SiteName = request.servervariables("script_name")
strPhysicalPath = Server.MapPath(ShowSub)
If ShowSub > " " then
ShowSub = Replace(ShowSub, " ", "%20")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
Set objFolderContents = objFolder.Files
For Each objFileItem in objFolderContents
Response.write "<tr><td>"
if InStr(1,"jpg,bmp,gif", LCase(objFSO.GetExtensionName(objFileItem.name))) > 0 then
Response.Write "<a href=""" & ShowSub & "/" & objFileItem.Name &""">" & objFileItem.Name & "</a>"
End if
Response.write "</td></tr>"
Next
Set objFSO = Nothing
End if
%>
Nu er det bare sådan at jeg synes det fylder for meget på siden og vil gerne have opdelt dem i en table hvor den viser 3 rækker og 3 kolonner, og hvis der er flere end 9 filer kan man trykke på et link til de næste filer..
Hvordan i alverden laver man sådan en ting??
For jeg er gået helt sukker kold i det. :(
