Jeg bruger flg script til at liste filerne på serveren, men jeg mangler en
"tilbage" himstregims. I ved ".." 2 prikker man klikker på for at komme til
det bibliotek der ligger før det aktuelle. ( Noget der svarer til knappen
"OP" i stifinderen.
Men... her er scriptet. Håber der er nogen der kan finde ud af det. Hilsen
Radion
<%
additional = request.querystring("pathh")
folderspec = "/"
if additional & "x" <> "x" then
additional = additional & "/"
folderspec = folderspec & additional
end if
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(folderspec))
Set fd = f.subfolders
response.write "<h2>FOLDERS</h2><blockquote>"
For Each whatever in fd
response.write "<A HREF='"
response.write request.servervariables("script_name")
If Request.Querystring("pathh") = "" Then
response.write "?pathh=" & whatever.name
Else
response.write "?pathh=" & Request.Querystring("pathh") & "/"
& whatever.name
End If
response.write "'>"
response.write whatever.name & " - " & whatever.datecreated
response.write "</A><br>"
Next
response.write "</blockquote><hr>"
response.write "<h2>FILES</h2><blockquote>"
Set fc = f.files
For Each whatever in fc
response.write "<A HREF='"
response.write folderspec & whatever.name
response.write "'>"
response.write whatever.name & " - " & whatever.datecreated
response.write "</A><br>"
Next
response.write "</blockquote><hr>"
%>