ASP - URL 파일 서버경로에 저장하기 ( binary, xmlDOM )

제목 : ASP - URL 파일 서버경로에 저장하기 ( binary, xmlDOM )

'******************************************************

'*

'* URL 파일 서버경로에 저장하기

'*

'*******************************************************

Function remoteCopy(baseObj,tagetObj)
'baseObj : url 경로
'tagetObj : 서버 경로 

'On Error Resume Next

  Dim xmlDOM

Set xmlDOM = CreateObject("WinHttp.WinHttpRequest.5.1")

xmlDOM.Open "GET", Trim(baseObj), False

xmlDOM.Send()

On Error Resume Next

      Dim Stream

Set Stream = CreateObject("ADODB.Stream")

Stream.Type = 1          'adTypeBinary

Stream.Open

Stream.Write xmlDOM.responseBody

Stream.SaveToFile tagetObj, 2 'adSaveCreateOverWrite

Stream.Close

Set Stream =Nothing

Set xmlDOM = Nothing

End Function

내용 : URL 경로의 파일을 binary로 읽어서 서버경로에 저장하기

출처 :