这篇文章主要介绍了vbs中获得文件夹大小的代码,需要的朋友可以参考下

代码如下:

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

'获得文件夹的大小

'Author = baiyang

'Version = 1.0

'Date = 09.08.08

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

Option Explicit

On Error Resume Next

Dim objFSO, objLocalFolder, strArg, longLocalFolderSize, strSizeMess

'判断是不是没有路径参数

If WScript.Arguments.Count < 1 Then

WScript.Echo "参数无效, 第一个参数为路径"

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即可。

更多信息请查看IT技术专栏