用Shell.Application获取图片分辨率

标签: , , ,

昨天有人在博客里留言:“获取图片分辨率也可以用Shell.Application,我比较喜欢用这个。”简单Google了一下,未果,于是发邮件请教了一下,很快就有了回复。

Path = "C:\test.jpg"
arr = Split(Path,"\")
FileName = arr(Ubound(arr))
FolderPath = Left(Path, Len(Path) - Len(FileName) - 1)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(FolderPath)
set objFolderItem = objFolder.ParseName(FileName)
Width = objFolder.GetDetailsOf(objFolderItem, 162)
Height = objFolder.GetDetailsOf(objFolderItem, 164)
Msgbox "Width: " & Width & " Height: " & Height

碰到VBS高手了。

随机文章:

  1. VBS实现半角字符转全角字符
  2. C#清除WebBrowser的Cookie缓存
  3. 为3DS更换SD卡/TF卡
  4. PHP中的gzcompress gzdeflate gzencode函数
  5. OpenWrt使用adbyby过滤广告

3 条评论 发表在“用Shell.Application获取图片分辨率”上

  1. PopEye说道:

    Demon,这个方法我试了,没有得到预期的结果。后来我试着用了循环的方式得到了objFolderItem属性从1到200的所有值,发现27、28两项值才是需要的Width和Height,而不是文中VBS高手给出的162、164,不知道你的系统上运行是什么结果。

留下回复