获得文件夹大小的VBS代码

核心代码

'----------------------'获得文件夹的大小'Author  = baiyang'Version = 1.0'Date  = 09.08.08'----------------------Option ExplicITOn Error Resume NextDim objFSO, objLocalFolder, strarg, longLocalFolderSize, strSizeMess'判断是不是没有路径参数If WScript.arguments.Count  1 Then  WScript.Echo "参数无效, 第一个参数为路径"  WScript.QuitElse  strArg = WScript.Arguments(0)End IfSet objFSO = CreateObject("Scripting.FileSystemObject")Set objLocalFolder = objFSO.GetFolder(strArg)If objLocalFolder = Empty Then  WScript.Echo "Invalid Path"  WScript.QuitEnd IflongLocalFolderSize = objLocalFolder.SizeIf longLocalFolderSize>
    =1024 And longLocalFolderSize1024*1024 Then  strSizeMess = Round( longLocalFolderSize/1024, 3 ) &
     " K"  Elseif longLocalFolderSize>
    =1024*1024 And longLocalFolderSize1024*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 IfWScript.Echo strSizeMessSet objFSO = NothingSet objLocalFolder = NothingWScript.Quit

使用方法：

将上面的挨骂保存文件为: GetFloderSize.vbs
用法: GetFloderSize.vbs C:\windows即可。

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！