[画像ファイルのサイズを取得する]

ウィンドウズフォルダにある、シャボン.bmp のサイズを取得します。

【ソースコード】
[tips0059.vbs]
Option Explicit

Dim objPic      ' 画像情報

Set objPic = LoadPicture("C:\WINNT\シャボン.bmp")
WScript.Echo "種類:" & TypeName(objPic)
WScript.Echo "サイズ:" & _
    CLng(CLng(objPic.Width) * 567 / 15000) & "x" & _
    CLng(CLng(objPic.Height) * 567 / 15000)

Set objPic = Nothing

【実行結果】
C:\> cscript //NoLogo tips0059.vbs
種類:Picture
サイズ:256x256