go to web page download file in vbscript

[lovettj]

I am trying to write a vbscript to go to a website and down load a file in .csv file extension. I don't know where to start so any help will do.

Thanks a lot in advance.

 

[dm4ever]

I posted a possible way here:

http://www.visualbasicscript.com/m_47324/tm.htm

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[lovettj]

dm4ever

I reviewed the link that you sent me. It is close but my problem is that when i navigate to the url string

http://offender.fdle.state.fl.us/of...=manual&email=emailaddress&county=countyname.

I get the following popup telling me to download

open save cancel
name:VendorListPublic_county_20070522.csv
type: Microsoft Excel Worksheet,
from: offender.fdle.stat.fl.us
PS: It is asking me to save to a file I want to automate this process

 

[dm4ever]

That's interesting...I just tried it with the link you provided and it worked fine.

Option Explicit

Dim DataBin 
Dim HTTPGET 
Set HTTPGET = CreateObject("Microsoft.XMLHTTP") 
HTTPGET.Open "GET", "[URL unfurl="true"]http://offender.fdle.state.fl.us/offender/vendorReport.do?mode=manual&email=emailaddress&county=countyname",[/URL] False 
HTTPGET.Send 
DataBin = HTTPGET.ResponseBody 
Const adTypeBinary=1 
Const adSaveCreateOverWrite=2 
Dim SendBinary 
Set SendBinary = CreateObject("ADODB.Stream") 
SendBinary.Type = adTypeBinary 
SendBinary.Open 
SendBinary.Write DataBin 
SendBinary.SaveToFile "c:\temp\offender.csv", adSaveCreateOverWrite

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[lovettj]

dm4ever

I tried it and it also worked for me.

Thanks again. I really appreciate your help.