标题 | vbs下用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 |
随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。