DownloadFile_User

Downloads file to user, asking user where to save or to open downloaded file

CodeFunctionName

What is this?

Public

Tested

Original Work

Function DownloadFile_User(strFile)
Response.Buffer = True
Response.Clear ' clear the buffer
Set s = Server.CreateObject("ADODB.Stream") ' create stream
s.Open
s.Type = 1 ' set as binary
On Error resume next
' Set fso = Server.CreateObject("Scripting.FileSystemObject") ' check the file exists
If Not fso.FileExists(strFile) then
Response.Write(" <h1 >Error: </h1 >" & strFile & " does not exist <p >")
Response.End
End If
Set f = fso.GetFile(strFile) ' get length of file
intFilelength = f.size
s.LoadFromFile(strFile)
if err then
Response.Write(" <h1 >Error: </h1 > <p >" & err.Description & " </p >")
Response.Write(" <p >File: " & strFile & " </p >")
Response.End
end if
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name ' send the headers to the users browser
Response.AddHeader "Content-Length", intFilelength
Response.Charset = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite s.Read ' output the file to the browser
Response.Flush
' tidy up
s.Close
Set s = Nothing
End function

strFile