[xanburzum]

Acessando um servidor remoto,fazendo download da imagem , renomear a imagem e salvar,iremos usar uma função (Imageget) e uma sub-rotina (Imagesave).

Primeira parte do nosso código, get array de bytes da imagem de um servidor remoto. A segunda parte contém uma subrotina que escreve array de bytes para arquivo de sistema.

imageUrl = "htp://www.seu-dominio.com/images/target-imagem.jpg"
strImageName = "nova-imagem.jpg"



call Function e subroutine

Imagesave Imageget(imageUrl), strImageName

CÓDIGO

Function Imageget(strImageUrl)
' Set objHttp = CreateObject("Microsoft.XMLHTTP")
' Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
Set objHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
' Set Http = CreateObject("WinHttp.WinHttpRequest")
objHttp.Open "GET", URL, False
objHttp.Send

Imageget= ImagegetHttp.ResponseBody
End Function

Sub Imagesave(ByteArray, strImageName)
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const adSaveCreateNotExist = 1

Set objBinaryStream = CreateObject("ADODB.Stream")
objBinaryStream.Type = adTypeBinary

objBinaryStream.Open
objBinaryStream.Write ByteArray
objBinaryStream.SaveToFile "C:\Inetpub\wwwroot\pasta\images\" & (strImageName), adSaveCreateOverWrite
response.Write("Foi feito o foi o download da imagem e salva!")
end sub