亓达吉,苜蓿怎么吃,cqc突破丧尸重围
核心代码
'---------------------- '获得文件夹的大小 '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即可。
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!! 点击进行留言回复
网友评论