Your technology certification is waiting. Enroll in Cloud Class ®
Sub ExportReport(strReport, strFile)
dim xml, oStream
Set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", strReport, False
set oStream = createobject("Adodb.Stream")
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const adSaveCreateNotExist = 1
oStream.type = adTypeBinary
' Do not overwrite an existing file
oStream.savetofile strFile , adSaveCreateOverWrite
' Use this form to overwrite a file if it already exists
' oStream.savetofile DestFolder & ImageFile, adSaveCreateOverWrite
set oStream = nothing
Set xml = Nothing
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
The MCTS: Microsoft Exchange Server 2010 certification validates your skills in supporting the maintenance and administration of the Exchange servers in an enterprise environment. Learn everything you need to know with this course.