獲得文件夾大小的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即可。