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