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