Brave10191
Grünschnabel
Hi,
ich habe ein kleines Problem mit zip's.
Erst mal was soll passieren: Es sollen Daten auf dem Server gezippt werden und dann direkt gedownloadet werden.
Das "Zippen" klappt so weit, aber beim Download haperts. Denn die Datei hat nach dem Download nur noch eine größe von 0k. Obwohl die auf dem Server 22k umfasst. Woran kann das liegen, bin schon eine halbe ewigkeit am probieren.
Vielleicht hilfts wenn ich das Skript ma hier hin setze:
ich habe ein kleines Problem mit zip's.
Erst mal was soll passieren: Es sollen Daten auf dem Server gezippt werden und dann direkt gedownloadet werden.
Das "Zippen" klappt so weit, aber beim Download haperts. Denn die Datei hat nach dem Download nur noch eine größe von 0k. Obwohl die auf dem Server 22k umfasst. Woran kann das liegen, bin schon eine halbe ewigkeit am probieren.
Vielleicht hilfts wenn ich das Skript ma hier hin setze:
Code:
Sub DateiDownload(byref strDateiName)
Dim strMyPath
dim objFile
dim FileSize
Dim objFileSys
'on error resume next
Response.Buffer = TRUE
Response.Clear
'Response.Expires = 0
Response.ContentType = "application/zip"
strMyPath = Server.MapPath("./downloads/") & strDateiName
Response.AddHeader "Content-Disposition", "filename=" & strDateiName
Set objFileSys = Server.CreateObject("Scripting.Filesystemobject")
Set objFile = objFileSys.GetFile(strMyPath)
FileSize = objFile.Size
Set objFile = Nothing
Set objFile = objFileSys.OpenTextFile(strMyPath,1 , false, -1)
Response.BinaryWrite(objFile.Read(FileSize) & ChrB(0))
'objFile.Close
Set objFile = Nothing
Set objFileSys = Nothing
Response.Flush
'if err = 0 then
' Response.Write("OK")
' 'call DateiLoeschen(strDateiName)
'else
' Response.Write("An error." & "<br>")
' Response.Write(err.Description & err.number & err.helpfile & err.Source & err.HelpContext)
'end if
' Seite hier noch nicht beenden, da unbedingt noch die Datei wieder gelöscht werden soll!
' siehe Aufruf "DateiLoeschen"
Response.End
end sub