vb6.0vba [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
- 이전글[vb6.0/vba] 파일명에서 사용할 수 없는 텍스트(파일명) 치환함수 23.03.11
- 다음글[vb6.0/vba] htmlfile(MSHTML.HTMLDocument) 를 이용한 스크립트를 통한 encode / decode 23.03.11
댓글목록
등록된 댓글이 없습니다.