"Jesper Stocholm" <usenet@stocholm.dk> skrev i en meddelelse
news:Xns906AD0D964586spamstocholmdk@192.38.208.81...
> Thomas Jespersen <thomas@daimi.au.dk> wrote in
> <y4nlmq02qbj.fsf@skids.daimi.au.dk>:
>
> >usenet@stocholm.dk (Jesper Stocholm) writes:
> >
> >> størrelse ? DIR ? Hvilken fil kigger du på ?
> >
> >Mit bud er han kigger på
http://asp.stocholm.dk/
> >
>
> det er det jeg mener ... der er da ingen af filerne, der genererer disse
> informationer.
>
> >RaDion, prøv at klikke på foldersandfiles.asp på siden.
> >
>
> fair nok ... jeg troede, at det var klart hvilken fil det drejede sig om.
>
>
>
> --
> Why don't we go see a play tonight ?
> (wife of Abraham Lincoln)
>
> Jesper Stocholm -
http://stocholm.dk
Tusind tak for de mage svar. Jeg har nu fundet det script jeg vil bruge Det
er flg:
<%
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>"
%>