条条大路通罗马,本文将介绍如何使用Shell对象读取图片尺寸信息。
示例代码如下。
Sub Demo()
Dim objShell As Object
Dim objFolder As Object
Dim objFile As Object
Dim strRes As String
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("c:\temp")
Set objFile = objFolder.ParseName("1.jpg")
strRes = objFile.ExtendedProperty("Dimensions")
Debug.Print "分辨率:" & Mid(strRes, 2, Len(strRes) - 2)
Set objFile = Nothing
Set objFolder = Nothing
Set objShell = Nothing
End Sub
运行结果如下图所示。
【代码解析】
第2~5行代码声明变量。
第6行代码创建Shell
对象。
第7行代码指定文件目录。
第8行代码指定图片文件名称。
第9行代码获取文件的扩展属性Dimensions
,注意返回值包含前导和尾随问号,其ASCII值为63。
第10行代码使用字符函数获取分辨率信息。
相关文章链接: