网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

请输入您要查询的考试资料:

 

标题 获得文件夹大小的vbs代码
内容
    这篇文章主要介绍了vbs中获得文件夹大小的代码,需要的朋友可以参考下
    代码如下:
    '----------------------
    '获得文件夹的大小
    '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即可。
随便看

 

在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。

 

Copyright © 2002-2024 cuapp.net All Rights Reserved
更新时间:2025/5/21 23:10:21