Forum Moderators: open

Message Too Old, No Replies

Download a File and Save to Folder on Server in Classic ASP

What am I missing here...?

         

digitalv

2:32 am on Feb 29, 2008 (gmt 0)

WebmasterWorld Senior Member 10+ Year Member



Is there any way to download a binary file like a PDF or Excel sheet from a remote URL and save it to a folder on the server using classic ASP?

Server permissions aren't an issue for doing this. I've probably written hundreds of scripts that retrieve a web page and write it to a file using FileSystemObject but never done a binary. What do I need to do?

digitalv

1:25 am on Mar 1, 2008 (gmt 0)

WebmasterWorld Senior Member 10+ Year Member



Anyone?

digitalv

3:47 pm on Mar 3, 2008 (gmt 0)

WebmasterWorld Senior Member 10+ Year Member



Solved my own problem if anyone is interested.

<%
server.scripttimeout = 60 * 20
' Set your settings
strFileURL = "http://pathtofile.zip"
strHDLocation = "c:\filename.zip"

' Fetch the file
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary

objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0 'Set the stream position to the start

Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing

objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if

Set objXMLHTTP = Nothing
%>