主頁 > 知識庫 > 用VBS可執(zhí)行程序+Xmlhttp下載備份網(wǎng)上文件的代碼

用VBS可執(zhí)行程序+Xmlhttp下載備份網(wǎng)上文件的代碼
熱門標(biāo)簽：龍巖400電話申請 墨西哥地圖標(biāo)注app 外呼系統(tǒng)說話聲音小怎么辦 上海辦理400電話選號 天津智能外呼系統(tǒng)排名 外呼系統(tǒng)群 企業(yè)400電話辦理價錢低 機(jī)器人打電銷適用于美業(yè)嗎 智云億呼電話機(jī)器人
今天寫程序時突然想到做一個文件的備份，把網(wǎng)站上的數(shù)據(jù)庫備份到本地機(jī)上。一個簡單的小程序，做成可執(zhí)行的文件，用VBS最簡單方便了。 'On Error Resume Next 
Dim iRemote,iLocal 
iRemote = InputBox("請輸入遠(yuǎn)程文件路徑：") 
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("遠(yuǎn)程文件不存在！") 
else 
    SaveFile 
end if 
stream.close 
set stream = nothing 

' 保存文件 
function SaveFile 
    iLocal = InputBox("請輸入本機(jī)保存路徑：") 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    returnValue = "0" 
    if (fso.FileExists(iLocal)) then 
        returnValue = MsgBox("'"iLocal"'文件已存在，真的要覆蓋嗎？",vbYesNoCancel,"確認(rèn)框") 
    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函數(shù)返回632錯誤解決方法
  • VB讀取線程、句柄及寫入內(nèi)存的API代碼實(shí)例
  • VB實(shí)現(xiàn)的倒計時類代碼詳解
  • VB調(diào)用Word拼寫檢查功能實(shí)例
  • VB6中的LSet語句和RSet語句詳解
  • VB6反編譯軟件VB RezQV2.4a 正式版注冊碼
  • VB使用XMLHTTP實(shí)現(xiàn)Post與Get的方法

標(biāo)簽：齊齊哈爾 錫林郭勒盟 阜新 麗水 鄂爾多斯 青島 黃山 承德

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《用VBS可執(zhí)行程序+Xmlhttp下載備份網(wǎng)上文件的代碼》，本文關(guān)鍵詞  用,VBS,可執(zhí)行,程序,+Xmlhttp,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《用VBS可執(zhí)行程序+Xmlhttp下載備份網(wǎng)上文件的代碼》相關(guān)的同類信息！
  • 本頁收集關(guān)于用VBS可執(zhí)行程序+Xmlhttp下載備份網(wǎng)上文件的代碼的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章