本篇內(nèi)容主要講解“VBS怎么獲得文件夾大小”,感興趣的朋友不妨來看看。本文介紹的方法操作簡單快捷,實(shí)用性強(qiáng)。下面就讓小編來帶大家學(xué)習(xí)“VBS怎么獲得文件夾大小”吧!
成都創(chuàng)新互聯(lián)為客戶提供專業(yè)的網(wǎng)站設(shè)計制作、網(wǎng)站設(shè)計、程序、域名、空間一條龍服務(wù),提供基于WEB的系統(tǒng)開發(fā). 服務(wù)項(xiàng)目涵蓋了網(wǎng)頁設(shè)計、網(wǎng)站程序開發(fā)、WEB系統(tǒng)開發(fā)、微信二次開發(fā)、手機(jī)網(wǎng)站制作設(shè)計等網(wǎng)站方面業(yè)務(wù)。核心代碼
'---------------------- '獲得文件夾的大小 'Author = baiyang 'Version = 1.0 'Date = 09.08.08 '---------------------- Option Explicit On Error Resume Next Dim objFSO, objLocalFolder, strArg, longLocalFolderSize, strSizeMess '判斷是不是沒有路徑參數(shù) If WScript.Arguments.Count < 1 Then WScript.Echo "參數(shù)無效, 第一個參數(shù)為路徑" WScript.Quit Else strArg = WScript.Arguments(0) End If Set objFSO = CreateObject("Scripting.FileSystemObject") Set objLocalFolder = objFSO.GetFolder(strArg) If objLocalFolder = Empty Then WScript.Echo "Invalid Path" WScript.Quit End If longLocalFolderSize = objLocalFolder.Size If longLocalFolderSize>=1024 And longLocalFolderSize<1024*1024 Then strSizeMess = Round( longLocalFolderSize/1024, 3 ) & " K" ElseIf longLocalFolderSize>=1024*1024 And longLocalFolderSize<1024*1024*1024 Then strSizeMess = Round( longLocalFolderSize/1024/1024, 3 ) & " M" ElseIf longLocalFolderSize>=1024*1024*1024 Then strSizeMess = Round( longLocalFolderSize/1024/1024/1024, 3 ) & " G" Else strSizeMess = longLocalFolderSize & " B" End If WScript.Echo strSizeMess Set objFSO = Nothing Set objLocalFolder = Nothing WScript.Quit
使用方法:
將上面的挨罵保存文件為: GetFloderSize.vbs
用法: GetFloderSize.vbs C:\windows即可。
到此,相信大家對“VBS怎么獲得文件夾大小”有了更深的了解,不妨來實(shí)際操作一番吧!這里是創(chuàng)新互聯(lián)建站,更多相關(guān)內(nèi)容可以進(jìn)入相關(guān)頻道進(jìn)行查詢,關(guān)注我們,繼續(xù)學(xué)習(xí)!
分享題目:VBS怎么獲得文件夾大小-創(chuàng)新互聯(lián)
網(wǎng)站路徑:http://bm7419.com/article10/ijjgo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供微信公眾號、品牌網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計公司、電子商務(wù)、網(wǎng)站營銷、小程序開發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容