欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-04-10 08:05:57
今天写程序时突然想到做一个文件的备份,把网站上的数据库备份到本地机上。一个简单的小程序,做成可执行的文件,用vbs最简单方便了。 'on error&n...
今天写程序时突然想到做一个文件的备份,把网站上的数据库备份到本地机上。一个简单的小程序,做成可执行的文件,用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