OverWritting无法在VBScript中工作

时间:2017-08-11 13:19:33

标签: vbscript

我正在运行以下VBS程序,文件名为check.vbs

dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "http://philiphacker.16mb.com/check.txt", False
xHttp.Send

with bStrm
.type = 1 '//binary
.open
.write xHttp.responseBody
.savetofile "d:\temp\check.txt", 2 '//overwrite
end with

我从互联网上获取此程序,它可以正常下载文件check.txt,但是当我在同一位置再次下载时,它不会覆盖文件check.txt

首先我的check.txt文件包含" 0" 我第二次下载check.txt文件包含" 1"

但是,它没有覆盖,check.txt仍然包含" 0" 但是,网址值中的check.txt文件已更改为" 1"

我希望我尽力理解这个问题.. 请帮帮我们..

0 个答案:

没有答案