El siguiente código coge el ancho de una imagen
en el servidor
Código:
Private Function GetImageWidth(byVal strPath)
dim myImg, fs
Set fs= CreateObject("Scripting.FileSystemObject")
if not fs.fileExists(strPath) then Exit Function
set myImg = loadpicture(strPath)
GetImageWidth = round(myImg.width / 26.4583)
set myImg = nothing
End Function
Pero como lo hago para que coja el ancho de una imagen de una url, empezando por http:// , que no esté en el servidor??