Als je in een url www.vcvcxvc.nl/test.doc zet en daarop klikt dan opent ie word en gaat het doc. niet downloaden
Via onderstaande code doet hij dat wel,
maar nu wordt de te opgeslagen naam
test.doc[1]
ik wil dat dit test.doc wordt
heeft iemand een oplossing
dim vFile, vMode
vMode = Request("mode")
vFile = Request("file")
If (vMode = "download") Then
call DownloadFile(Server.MapPath("../../../../upload/search/" & vFile))
Else
Response.write("File niet gevonden")
End If
Sub DownloadFile(vFile)
Dim ByteArray
Set ByteArray = CreateObject("ScriptUtils.ByteArray")
ByteArray.ReadFrom(vFile)
Response.Clear
Response.ContentType = "application/x-msdownload"
Response.AddHeader "Content-Disposition", "attachment; filename=" & Server.URLEncode(vFile) & ""
Response.ContentType = "text"
Response.BinaryWrite ByteArray.ByteArray
ByteArray = Empty
Response.End
End Sub
Via onderstaande code doet hij dat wel,
maar nu wordt de te opgeslagen naam
test.doc[1]
ik wil dat dit test.doc wordt
heeft iemand een oplossing
dim vFile, vMode
vMode = Request("mode")
vFile = Request("file")
If (vMode = "download") Then
call DownloadFile(Server.MapPath("../../../../upload/search/" & vFile))
Else
Response.write("File niet gevonden")
End If
Sub DownloadFile(vFile)
Dim ByteArray
Set ByteArray = CreateObject("ScriptUtils.ByteArray")
ByteArray.ReadFrom(vFile)
Response.Clear
Response.ContentType = "application/x-msdownload"
Response.AddHeader "Content-Disposition", "attachment; filename=" & Server.URLEncode(vFile) & ""
Response.ContentType = "text"
Response.BinaryWrite ByteArray.ByteArray
ByteArray = Empty
Response.End
End Sub