真实的国产乱ⅩXXX66竹夫人,五月香六月婷婷激情综合,亚洲日本VA一区二区三区,亚洲精品一区二区三区麻豆

怎么用VBS可執(zhí)行程序+Xmlhttp下載備份網(wǎng)上文件-創(chuàng)新互聯(lián)

這篇文章主要介紹怎么用VBS可執(zhí)行程序+Xmlhttp下載備份網(wǎng)上文件，文中介紹的非常詳細，具有一定的參考價值，感興趣的小伙伴們一定要看完！

專注于為中小企業(yè)提供網(wǎng)站設(shè)計、成都網(wǎng)站制作服務(wù),電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)大理州免費做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動了成百上千企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網(wǎng)站建設(shè)實現(xiàn)規(guī)模擴充和轉(zhuǎn)變。

今天寫程序時突然想到做一個文件的備份，把網(wǎng)站上的數(shù)據(jù)庫備份到本地機上。一個簡單的小程序，做成可執(zhí)行的文件，用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