Download A File In Visual Basic Script (vbs)

DownloadFile.vbs

Sub HTTPDownload( myURL, myPath )
    Dim i, objFile, objFSO, objHTTP, strFile, strMsg
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Set objFSO = CreateObject( "Scripting.FileSystemObject" )
    If objFSO.FolderExists( myPath ) Then
        strFile = objFSO.BuildPath( myPath, Mid( myURL, InStrRev( myURL, "/" ) + 1 ) )
    ElseIf objFSO.FolderExists( Left( myPath, InStrRev( myPath, "\" ) - 1 ) ) Then
        strFile = myPath
    Else
        WScript.Echo "ERROR: Target folder not found."
        Exit Sub
    End If
    Set objFile = objFSO.OpenTextFile( strFile, ForWriting, True )
    Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )
    objHTTP.Open "GET", myURL, False
    objHTTP.Send
    For i = 1 To LenB( objHTTP.ResponseBody )
        objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) )
    Next
    objFile.Close( )
End Sub

HTTPDownload "DOWNLOADURL", "DOWNLOADDESTINATION"

ik

good

1111

good

I applied this code in VBA. loop with "objFile.Write" works quite slowly. I managed to speed up the code.

Sub HTTPDownload(myURL, myPath, myName)
Dim i, objFile, objFSO, objHTTP, strFile, strMsg
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(myPath) Then
strFile = objFSO.BuildPath(myPath, myName)
ElseIf objFSO.FolderExists(Left(myPath, myName)) Then
strFile = myPath
Else
WScript.Echo "ERROR: Target folder not found."
Exit Sub
End If
Set objFile = objFSO.OpenTextFile(strFile, ForWriting, True)
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
objHTTP.Open "GET", myURL, False
objHTTP.Send

Dim start As Date
'start = Timer

Dim simbol_byte, simbol_text(), simbol$

simbol_byte = objHTTP.ResponseBody

ReDim simbol_text(LBound(simbol_byte) To UBound(simbol_byte))

For i = LBound(simbol_byte) To UBound(simbol_byte)
simbol_text(i) = Chr(simbol_byte(i))
If i Mod 100000 = 0 Then DoEvents
Next

simbol = ""
For i = LBound(simbol_text) To UBound(simbol_text)
simbol = simbol + simbol_text(i)
If i Mod 1000 = 0 Then DoEvents: objFile.Write simbol: simbol = "" ': Stop
Next
'MsgBox "Macro execution time " & Format((Timer - start) / 86400, "Long Time")
objFile.Close
End Sub

HTTPDownload Link, myPath, myName