Code for file download

[Vivek]

Hi,

Need some help automating a daily task of mine - downloading a zip file from a stock exchange site and saving it to disk.

Here are the steps involved:

Browse to http://www.bseindia.com/mktlive/bhavcopy.asp
Click on the link : "Download file in csv format (Zipped)" Alternatively, the file can be directly downloaded in which case the url would be http://www.bseindia.com/bhavcopy/eq<ddmmyy>_csv.zip Of course ddmmyy would be replaced by date chosen by me.
Save zip to folder C:\abcd

Would be grateful for suggestions.

Cheers...
Vivek

 

[Joel]

Sub test()

MyDate = Format(Date, "DDMMYY")
ZipFile = "eq" & MyDate & "_csv.zip"

Set fs = CreateObject("Scripting.FileSystemObject") '
fs.CopyFile "//www.bseindia.com/bhavcopy/" & ZipFile, "c:\abcd\"

End Sub

 

[Vivek]

Hi Joel,

Thanks for the code, works well for me

Vivek