generere links fra filstruktur

Kan du ikke bruge det her?

<%
Response.Expires    = Date+0
%>

<html>

<head>
</head>

<body text=\"#000000\">

<font face=\"Verdana\" size=\"1\">

<%
Function ShowFolderList()
    if request.querystring(\"path\") = \"\" then
    tmp = server.mappath(\"files.asp\")
    tmp = replace(tmp, \"files.asp\", \"\")
    folderspec = tmp
    tmp = \"\"
    else
    folderspec = request.querystring(\"path\")
    end if
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set file = fso.GetFolder(folderspec)
    Set drivecollection = fso.drives
    tmp = tmp & file.path & \"<br><br>\"
    set foldercollection2 = file.subfolders
    for each folder in foldercollection2
    tmp = tmp & \"<b><a href=\'\" & request.servervariables(\"script_name\") & \"?path=\" & folder & \"\'>\" & folder.name & \"</a></b><br>\"
    next

    Set foldercollection = file.Files
    For Each file in foldercollection
   
    tmp = tmp & \"<a href=\'files.asp?file=\" & folderspec & \"\" & file.name & \"&action=open\'>\" & file.name & \"</a><BR>\"
       
    Next
    ShowFolderList = tmp
End Function
response.write showfolderlist()
%>


</body>

</html>


og kald den files.asp

Mjaa - det er noget i den retning.

Jeg ville bare gerne have muligheden for at vælge en hvilken som helst mappe på min HD som skal indekseres.

Mit output skriver også hele stien. Altså f.eks. D:\\Inetpub\\fedmappe\\osv

Jeg vil gerne have det, bare med adressen fra den valgte mappe og ned i hierarkiet.

Kan det ikke lade sig gøre??

Hmnn.. jeg har lavet den her.. tror du kan bruge den :-)

www.m0rten.dk/andet/filecrawler.zip

AAAAARARRRRRRRGHGGGHHH!!!!!!

Den er jo inficeret med NIMDA Ormen!!!!
Og jeg kunne ikke reparere filerne!!!

Men godt jeg fik den stoppet i tide! Du burde nok lave en virus-scan af dine HD\'er. Husk at køre det over alle filer fremfor kun program-filer. Den lægger sig også ned i html og andre webdokumenter!

Fortæl hvor mange filer du mister :-)

lol ja det er sq egentlig rigtigt! det må du sq undskylde, men readme.eml var da ikke med var den??

Aner det ikke - filen røg direkte ud med det samme!!! Men den nåede kun at finde virus i nogle asp eller var det htm filer inden jeg fik stoppet det hele!

har du en version uden Nimda jeg kan kigge på???

Øhm, du kan evt. lige åbne de forskellige .asp filer i notepad, og fjerne den sidste linje i filen som hedder noget med <html><script>fdsfdsafdsa</script></html> eller sådan noget...

Fjern den i alle filerne, så skulle det hele gerne virke

Hmm - det virker ikke helt som jeg gerne ville have det til.

Men pyt. Nu har jeg fået en idé om hvad filobjektet i ASP duer til.

Takker - Over and out.