Using the VBS executable program +xmlhttp download the code for backing up your online files _vbs

Today, when you write a program, suddenly think of a backup of the file, the site on the database back to the local machine. A simple small program to make executable files, with a VBS is the simplest and most convenient. ' On Error Resume Next
Dim iremote,ilocal
Iremote = InputBox ("Please enter remote file path:")
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 ("Remote file does not exist!") ")
Else
SaveFile
End If
Stream.Close
Set stream = Nothing

' Save file
function SaveFile
ilocal = InputBox ("Please enter the native save path:")
Set fso = CreateObject ("Scripting.FileSystemObject")
returnvalue = "0"
if (FSO). FileExists (ilocal)) Then
returnvalue = MsgBox ("&iLocal&" file already exists, do you really want to overwrite it?) ", vbYesNoCancel," Confirm Box ")
End If
Set fso = Nothing
if (returnvalue = "6" or returnvalue = "0") Then ' overwrite
Stream. SaveToFile ilocal,2
MsgBox ("File backup is successful!") ")
ElseIf (returnvalue = "7") Then
SaveFile
End If
End Function