最简单的下载文件的方法

Question

互联网上有很多例子，初学者最简单/最简单的例子似乎是：

dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "http://bla.com/ea_csv_160126.csv", False
xHttp.Send

with bStrm
    .type = 1 '//binary
    .open
    .write xHttp.responseBody
    .savetofile "c:\myFolder\ea_csv_160126.csv", 2 '//overwrite
end with

返回：

  

写入文件失败代码：800A0BBC源ADODB.Stream

我想调试这个，有人抱怨这个错误但没有修复。

另外，如果可能的话，我想定义一个变量以保存日期的值。因此，脚本应该能够从网站下载文件，以适应URL 160126中更改的值将是其他内容。 注意：在同一个网站上，有一个名称几乎相同的文件ea_csv_update_160126.csv，不应该使用更新的文件。

修改

如果您知道更简单或同样简单的解决方案，请发布。