当前位置： 移动技术网 > IT编程>脚本编程>VBScript > 用VBS可执行程序+Xmlhttp下载备份网上文件的代码

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

2017年12月12日  | 移动技术网IT编程  | 我要评论

佣兵天下好看吗,江阴车震门,珀尚

今天写程序时突然想到做一个文件的备份，把网站上的数据库备份到本地机上。一个简单的小程序，做成可执行的文件，用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

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网