[vb6.0/vba] WinHttp를 이용한 파일 다운로드 downloadFile 함수
하나를하더라도최선을
2023-03-11 08:47:02
29,763
0
0
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