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

时间2024-02-11 09:07:03发布访客分类脚本浏览739

导读：收集整理的这篇文章主要介绍了用VBS可执行程序+Xmlhttp下载备份网上文件的代码，觉得挺不错的，现在分享给大家，也给大家做个参考。今天写程序时突然想到做一个文件的备份，把网站上的数...

收集整理的这篇文章主要介绍了用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.size10240) 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
您可能感兴趣的文章:

VB XMLHTTP使用方法
用ASP VBS xmlhttp adodbstream下载和保存图片的代码
VB中的RasEnumConnections函数返回632错误解决方法
VB读取线程、句柄及写入内存的API代码实例
VB实现的倒计时类代码详解
VB调用Word拼写检查功能实例
VB6中的LSet语句和RSet语句详解
VB6反编译软件VB RezQV2.4a 正式版注册码
VB使用XMLHTTP实现Post与Get的方法

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！

若转载请注明出处：用VBS可执行程序+Xmlhttp下载备份网上文件的代码
本文地址： https://pptw.com/jishu/609598.html

VBS编程教程 (第5篇) VBS编程教程 (第6篇)