Proceso para copiar imagenes desde url

[Emerald]

Hola!

Quisiera que me pudieran ayudar con lo siguiente por favor.
No se si sea posible hacer un proceso ya sea en Windows o en Web que al darle click a algun boton, apartir de una lista de url's de imagenes en la web me las copie y las baje a mi PC, es esto posible?

Gracias!
Saludos!

[Fuzzylog]

Bueno, este es un ejemplo hecho con XMLHTTP con una URL que contiene una imagen. Analízalo y cambia lo que necesites. Crear un botón y el lugar donde se pone la lista de imágenes, y leerlas y pasarlas a la variable correspondiente para incrustarlas luego en la ejecución de la función ya es cosa tuya. Suerte.

Function BinaryToString(Binary)
Dim I, S
For I = 1 To LenB(Binary)
S = S & Chr(AscB(MidB(Binary, I, 1)))
Next
BinaryToString = S
End Function

Dim xml, objFS, archivo, simagen
Response.Buffer = True

simagen = "http://www.dominio.com/imagen.jpg"

Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", simagen, False
xml.Send

Set ObjFS = CreateObject("Scripting.FileSystemObject")
Set archivo = ObjFS.CreateTextFile
("c:\CarpetaServidor\Imagenes\imagen.jpg", true)
archivo.WriteLine BinaryToString(xml.responseBody)
archivo.Close

Set xml = Nothing
Set archivo = Nothing
Set ObjFS = Nothing

%>

[Peterpay]

Para mi gusto es mas simple usar

WebClient.DownloadFile(url,rutaendisco)

eso dentro de tu ciclo que recorre cada url en tu fuente de datos.

[Emerald]

muchas gracias!

Lo voy a probar y terminando les cuento...

Gracias!