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

ウィンドウズフォルダにある、シャボン.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