OverWritting无法在VBScript中工作

Question

我正在运行以下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文件包含＆＃34; 0＆＃34; 我第二次下载check.txt文件包含＆＃34; 1＆＃34;

但是，它没有覆盖，check.txt仍然包含＆＃34; 0＆＃34; 但是，网址值中的check.txt文件已更改为＆＃34; 1＆＃34;

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