獲得文件夾大小的VBS代碼

    這篇文章主要介紹了vbs中獲得文件夾大小的代碼.
    代碼如下:
    '----------------------
    '獲得文件夾的大小
    '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即可。