用VBS可执行程序+Xmlhttp下载备份网上文件的代码

今天写程序时突然想到做一个文件的备份，把网站上的数据库备份到本地机上。一个简单的小程序，做成可执行的文件，用vbs最简单方便了。 'on error resume next 
dim iremote,ilocal 
iremote = inputbox("请输入远程文件路径：") 
set xpost = createobject("microsoft.xmlhttp") 
xpost.open "get",iremote,0 
xpost.send() 
set stream = createobject("adodb.stream") 
stream.mode = 3 
stream.type = 1 
stream.open() 
stream.write(xpost.responsebody) 
if (stream.size<10240) then 
    msgbox("远程文件不存在！") 
else 
    savefile 
end if 
stream.close 
set stream = nothing 

' 保存文件 
function savefile 
    ilocal = inputbox("请输入本机保存路径：") 
    set fso = createobject("scripting.filesystemobject") 
    returnvalue = "0" 
    if (fso.fileexists(ilocal)) then 
        returnvalue = msgbox("'"&ilocal&"'文件已存在，真的要覆盖吗？",vbyesnocancel,"确认框") 
    end if 
    set fso = nothing 
    if (returnvalue = "6" or returnvalue = "0") then '覆盖 
        stream.savetofile ilocal,2 
        msgbox("文件备份成功！") 
    elseif (returnvalue = "7") then 
        savefile 
    end if 
end function