Download "http://www.robvanderwoude.com/files/hardwinv.zip", "C:\hardwinv.zip"


Sub Download( myFileURL, myDestFile )
' This function uses X-standards.com's X-HTTP component to download a file
'
' Arguments:
' myFileURL  [string] the URL of the file to be downloaded
' myDestFile [string] the fully qualified path of the downloaded "target" file
'
' Written by Rob van der Woude
' http://www.robvanderwoude.com
'
' The X-HTTP component is available at:
' http://www.xstandard.com/page.asp?p=C8AACBA3-702F-4BF0-894A-B6679AA949E6
' For more information on available functionality read:
' http://www.xstandard.com/printer-friendly.asp?id=32ADACB9-6093-452A-9464-9269867AB16E
	Dim objHTTP
	Set objHTTP = CreateObject("XStandard.HTTP")
	objHTTP.Get myFileURL
	objHTTP.SaveResponseToFile myDestFile
	Set objHTTP = Nothing
End Sub