今天写程序时突然想到做一个文件的备份，把网站上的数据库备份到本地机上。一个简单的小程序，做成可执行的文件，用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