今天就跟大家聊聊有關(guān)vbs中怎么利用Shell.Application獲取圖片分辨率,可能很多人都不太了解,為了讓大家更加了解,小編給大家總結(jié)了以下內(nèi)容,希望大家根據(jù)這篇文章可以有所收獲。
專注于為中小企業(yè)提供成都網(wǎng)站設(shè)計、成都網(wǎng)站制作服務(wù),電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)固鎮(zhèn)免費做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動了上千余家企業(yè)的穩(wěn)健成長,幫助中小企業(yè)通過網(wǎng)站建設(shè)實現(xiàn)規(guī)模擴充和轉(zhuǎn)變。代碼如下:
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
看完上述內(nèi)容,你們對vbs中怎么利用Shell.Application獲取圖片分辨率有進一步的了解嗎?如果還想了解更多知識或者相關(guān)內(nèi)容,請關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道,感謝大家的支持。