这篇文章主要介绍了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技术专栏