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

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

작성자 하나를하더라도최선을
댓글 0건 조회 24,980회 작성일 23-03-11 08:47

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

등록된 댓글이 없습니다.