Get Image Size

Ja, men du skal bruge et COM-objekt der giver adgang til billede-funktioner. Jeg kan anbefale GFLAx (bruger den selv), der er gratis:

http://www.xnview.com/download/GflAxSetup.exe

Når du så har installeret komponenten kan du bruge dette kode til at resize:

Set oImage = WScript.CreateObject("GflAx193.GflAx") 
oImage.LoadBitmap "filnavn-på-billede"

'1 for JPEG
'2 for GIF
'3 for PNG
'4 for BMP
'5 for TIFF - flere formater i hjælpefilen under 'reference'
oImage.SaveFormat = 1

If oImage.Width > 400 Then
  iProportion = oImage.Height / oImage.Width
  oImage.Resize 400, 400 * iProportion
End If

oImage.SaveBitmap "filnavn-på-billede"

Set oImage = Nothing

Burde lige nævnte at GFLAx-komponenten kun er gratis til ikke-kommercielt brug...

Jeg har ikke mulighed for at installere nogle komponenter.

Så kan det ikke lade sig gøre...

lukker tråden