[vb6.0/vba] WinHttp를 이용한 파일 다운로드 downloadFile 함수

Function downloadFile(URL, localPath) As String

    On Error GoTo goErr

    Set winhttp = CreateObject("WinHttp.WinHttpRequest.5.1")

    winhttp.Open "GET", URL, False

    winhttp.Send

    Set objStream = CreateObject("ADODB.Stream")

    objStream.Open

    objStream.Type = 1

    objStream.Write winhttp.responseBody

    objStream.SaveToFile localPath, 2

    objStream.Close

    Exit Function

goErr:

    downloadFile = Err.Description

End Function