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