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

作者佚名来源 ASP编程浏览发布时间 2013-07-09

今天写程序时突然想到做一个文件的备份，把网站上的数据库备份到本地机上。一个简单的小程序，做成可执行的文件，用VBS最简单方便了。''OnErrorResumeNext
DimiRemote,iLocal
iRemote=InputBox("请输入远程文件路径：")
SetxPost=CreateObject("Microsoft.XMLHTTP")
xPost.Open"GET",iRemote,0
xPost.Send()
Setstream=CreateObject("ADODB.Stream")
stream.Mode=3
stream.Type=1
stream.Open()
stream.Write(xPost.responseBody)
if(stream.size<10240)then
MsgBox("远程文件不存在！")
else
SaveFile
endif
stream.close
setstream=nothing

''保存文件
functionSaveFile
iLocal=InputBox("请输入本机保存路径：")
Setfso=CreateObject("Scripting.FileSystemObject")
returnValue="0"
if(fso.FileExists(iLocal))then
returnValue=MsgBox("''"&iLocal&"''文件已存在，真的要覆盖吗？",vbYesNoCancel,"确认框")
endif
setfso=nothing
if(returnValue="6"orreturnValue="0")then''覆盖
stream.SaveToFileiLocal,2
MsgBox("文件备份成功！")
elseif(returnValue="7")then
SaveFile
endif
endfunction

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

分享到：更多

你可能对下面的文章感兴趣

上一篇: 可以将Bat转换位VBS文件的VBS脚本下一篇: 用vbs实现将剪切板的unix格式的内容处理成pc格式的代码

关于用VBS可执行程序+Xmlhttp下载备份网上文件的代码的所有评论

随机推荐