用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. 身份证校验码算法
  2. Asc/AscB/AscW和Chr/ChrB/ChrW函数之间的区别
  3. VBS发送带Cookie的HTTP请求
  4. 伪造电子邮件发送时间
  5. jQuery mouseover mouseout事件在IE下闪烁的解决方法

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

  1. PopEye说道:

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

留下回复