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

본문 바로가기

vb6.0/vba

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

회원사진
하나를하더라도최선을
2023-03-11 08:47 1,593 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

등록된 댓글이 없습니다.
게시판 전체검색