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

请输入您要查询的范文:

 

标题 获得文件夹大小的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/25 3:42:39