Peter Anders: Verzeichnisse auslesen und die Dateien zum download anbieten

Hallo Forum,

meine Frage wäre wie kann ich mein Verzeichnis online auslesen und die Dateien gleichzeitig zum download anbieten? Das mit Auslesen klappt ja ganz gut, aber die dann auch zum downloadanzubieten klappt nicht. So sieht mein Script aus, vielleicht erkennt da einer den Fehler?

<%
Dim objFileSys
Set objFileSys = Server.CreateObject("Scripting.FileSystemObject")

Dim objActFolder
Set objActFolder = objFileSys.GetFolder(server.MapPath("../") & "\download")

Dim objFile

Response.Write "<table border=""0"" width=""500"">" & vbCrLf

For each objFile in objActFolder.Files

Response.Write "<tr>" & vbCrLf
Response.Write "<td class=""text"">" & objFile.Name & "</td>"
Response.Write "<td><a class=""text"" href=" & objFile & " >" & _
      "Datei downloaden" & _
      "</a>" & _
      "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf

Next
Response.Write "</table>" & vbCrLf

Set objFile = Nothing
Set objActFolder = Nothing
Set objFileSys = Nothing
%>

Wenn ich jedoch auf dem localen server auf " Datei downloaden" klicke,funktionierts, wenn ich das online stelle, geht es nicht mehr.. komm nicht weiter..

  1. Hallo,

    verstehe dein Problem nicht ganz (was heisst "geht nicht"?), aber vielleicht hilft das:

    http://www.aspfaq.de/index.asp?FID=88&ELE=7663

    Gruss,
    Daniel

    1. verstehe dein Problem nicht ganz (was heisst "geht nicht"?), aber vielleicht hilft das:

      hi Daniel geht nicht, heißt daß wenn man auf den Link klickt, sich einfach nichts tut, Firefox bringt sogar ne Fehlermeldung- Warnung. Auf dem schlund server sagt er "e ist kein registriertes Protokoll" E weil er auf das Verzeichnis E auf den Server verweist.

      Idee? Kann Dir gern auch n Link dazu schicken