国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表

圖片精選

主站蜘蛛池模板： 上高县| 湟中县| 遂昌县| 台南市| 淮安市| 南平市| 白山市| 聂拉木县| 嘉兴市| 张家界市| 青阳县| 海口市| 巩留县| 莆田市| 辉县市| 襄樊市| 万宁市| 章丘市| 黑水县| 镇原县| 丹巴县| 翁源县| 璧山县| 临朐县| 横山县| 那坡县| 宿州市| 铁岭县| 永川市| 泸西县| 霍林郭勒市| 武鸣县| 旅游| 临颍县| 南宫市| 棋牌| 仙桃市| 凤台县| 绥德县| 郓城县| 乌鲁木齐市|