這篇文章主要介紹了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技術專欄