수다닷컴

OptionExplicitPublicFunctionFileDownload(strURLAsString,OptionalstrLocalPathAsString= vbNullString,OptionalisBinaryAsBoolean=True)AsBooleanOnErrorGotoOnErrDimoWinHttpAsObjectSetoWinHttp = CreateObject(WinHttp.WinHttpRequest.5.1)WithoWinHttp .Open GET, strURL,False .Send IfLenB(strLocalPath) = 0Then DimTempAsString Temp = .getresponseheader(Content-Disposition) DimPosAsLong Pos = InStr(Temp, filename=) IfPos = 0Then GotoOnErr EndIf Pos = Pos + 10 Temp = Mid$(Temp, Pos, Len(Temp) - Pos) Temp = Replace$(Temp, _, ) DimFileNameAsString FileName = Temp strLocalPath = App.Path & \Incoming\ & FileName IfLenB(Dir$(App.Path & \Incoming, vbDirectory)) = 0Then MkDir App.Path & \Incoming EndIf EndIf DimBuf()AsByte IfisBinaryThen Buf = .ResponseBody Else Buf = .ResponseText EndIf OpenstrLocalPathForBinaryAccessWriteAs#1 Put#1, , Buf Close#1EndWithIfNotoWinHttpIsNothingThen SetoWinHttp =NothingEndIf FileDownload =TrueExitFunctionOnErr:IfErrThen IfErr.Number = 0Then MsgBox 파일을 다운로드 하는 중, 알 수 없는 오류가 발생하였습니다., vbExclamationOrvbApplicationModal Else MsgBox 파일을 다운로드 하는 중, 오류가 발생하였습니다. ( & Err.Number & ) & vbCrLf & _ Error(Err.Number), vbExclamationOrvbApplicationModal EndIf Err.ClearEndIfEndFunction
--------------------------------------------------------

이 모듈을 어떤분이 답변으로 해주셨는데.

이 모듈을 넣었을때

어찌 사용하나요.

저는 버튼을 눌렀을때 경로창이 뜨고 경로 지정 - 다운로드 버튼 클릭시 다운로드

이렇게 하고싶었는데. 이모듈을 어찌 응용하죠.

신청하기