国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

vbs下用Shell.Application獲取圖片分辨率

2019-10-26 18:04:27
字體：大 中 小
供稿：網(wǎng)友
簡單Google了一下，未果，于是發(fā)郵件請教了一下，很快就有了回復(fù)。
復(fù)制代碼 代碼如下:

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

原文：http://demon.tw/programming/shell-application-picture-resolution.html

發(fā)表評論 共有條評論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板： 镇巴县| 巫溪县| 洛宁县| 白朗县| 宾阳县| 寻乌县| 望江县| 金阳县| 苏尼特右旗| 南通市| 德昌县| 衡阳市| 手游| 聊城市| 中西区| 斗六市| 永嘉县| 晋中市| 焉耆| 泰和县| 河北省| 渝中区| 贵溪市| 曲松县| 蒙城县| 曲水县| 兰州市| 靖州| 苗栗县| 怀柔区| 水城县| 遂平县| 嘉荫县| 清水县| 吴桥县| 务川| 河间市| 明溪县| 恩施市| 印江| 旬阳县|