中文字幕免费精品_亚洲视频自拍_亚洲综合国产激情另类一区_色综合咪咪久久

這篇文章主要介紹了vbs中獲得文件夾大小的代碼,需要的朋友可以參考下

代碼如下:

'----------------------

'獲得文件夾的大小

'Author = baiyang

'Version = 1.0

'Date = 09.08.08

'----------------------

Option Explicit

On Error Resume Next

Dim objFSO, objLocalFolder, strArg, longLocalFolderSize, strSizeMess

'判斷是不是沒(méi)有路徑參數(shù)

If WScript.Arguments.Count < 1 Then

WScript.Echo "參數(shù)無(wú)效, 第一個(gè)參數(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即可。

更多信息請(qǐng)查看IT技術(shù)專(zhuān)欄