主頁 > 知識庫 > vbs下用Shell.Application獲取圖片分辨率

vbs下用Shell.Application獲取圖片分辨率
熱門標(biāo)簽：新密防封卡外呼系統(tǒng)違法嗎 海外美發(fā)店地圖標(biāo)注 辦理膠州400電話財稅 外呼營銷下單系統(tǒng) 前鋒辦理400電話申請 百度地圖標(biāo)注怎么卸載 加盟電銷機(jī)器人好的品牌 陜西高頻外呼回?fù)芟到y(tǒng)哪家好 打電話的外呼系統(tǒ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

標(biāo)簽：河南 梅州 武威 牡丹江 伊春 阜陽 咸陽 四平

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《vbs下用Shell.Application獲取圖片分辨率》，本文關(guān)鍵詞  vbs,下用,Shell.Application,獲取,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《vbs下用Shell.Application獲取圖片分辨率》相關(guān)的同類信息！
  • 本頁收集關(guān)于vbs下用Shell.Application獲取圖片分辨率的相關(guān)信息資訊供網(wǎng)民參考！

    • 四合一精品企业网站建设

    多一个网站就为企业多增加一条营销渠道

    ¥888元限时抢购

    QQ立即咨询快速购买

    企业400电话

    智能AI客服机器人
    ￥15000

    在线订购

    合计11份范本：公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推薦文章