用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. Windows 7音频服务未运行的解决方法
  2. 匹配C语言风格注释的正则表达式
  3. VBS转EXE工具:ExeScript
  4. OpenWrt实现3DS的StreetPass Relay擦肩HomePass
  5. FireFox插件User Agent Switcher

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

  1. PopEye说道:

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

留下回复