说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB取得某个目录底下所有文件大小总和

HTML文档下载 WORD文档下载 PDF文档下载
VB取得某个目录底下所有文件大小总和

含目录底下的子目录,求得其所有文件大小之总和
其第二个叁数的目的是起始Static型态的totbyte, 呼叫它时,请不要传叁数进去
Private Sub Command1_Click()
Dim tot As Long
tot = GetDirTotalByte("c:\tools\")
Debug.Print tot
End Sub
Private Function GetDirTotalByte(CurrentPath As String, Optional i As Long) As Long
Static totbyte As Long
Dim nI As Integer, nDirectory As Integer
Dim sFileName As String, sDirectoryList() As String
注释:Initial totbyte, if it is not the Recursive call the function
If i <> 1 Then
totbyte = 0
End If
注释:First list all normal files in this directory
sFileName = Dir(CurrentPath, vbNormal + vbHidden + vbReadOnly + vbSystem + vbArchive)
Do While sFileName <> ""
totbyte = totbyte + FileLen(CurrentPath + sFileName)
sFileName = Dir
Loop
注释:Next build temporary list of subdirectories
sFileName = Dir(CurrentPath, vbDirectory)
Do While sFileName <> ""
注释:Ignore current and parent directories
If sFileName <> "." And sFileName <> ".." Then
注释:Ignore nondirectories
If GetAttr(CurrentPath & sFileName) _
And vbDirectory Then
nDirectory = nDirectory + 1
ReDim Preserve sDirectoryList(nDirectory)
sDirectoryList(nDirectory) = CurrentPath & sFileName
End If
End If
sFileName = Dir
Loop
注释:Recursively process each directory
For nI = 1 To nDirectory
GetDirTotalByte sDirectoryList(nI) & "\", 1
Next nI
GetDirTotalByte = totbyte
End Function

万亿移动支付产业的难点和痛点 削减硬件运营成本?亚马逊或自主研发ARM架构芯片 开源框架eMobc:XML开发原生移动应用so easy iOS应用安全开发,你不知道的那些事 市场化API的十个捷径 MongoDB和Cloudera结盟,欲征服大数据市场 红帽收购Inktank,将统一Gluster与Ceph? 那些巨头公司Logo是这么演变来的…… 以史为镜,剖析PaaS大迷局 “心脏出血”还不够?又曝OAuth和OpenID登录漏洞 走近讲师:搜狐于顺治讲述搜狐PaaS云平台实践之路 AppFlood 2014 Q1报告:亚洲和中东市场成为开发者出海首选 华为联合运营商构建能力开放平台 Facebook产品设计主管:揭秘公司如何招聘优秀设计师 【附信息图】美国因软件缺陷导致的十大事件 二十一世纪Windows简史 为什么用户体验和生态系统决定云公司的成败 三星Tizen,路漫漫其修远兮 用户体验是新优势,互联网会受到何种影响? 从GitHub看编程语言流行度 陈沙克:Openstack Horizon Icehouse Blueprint简介 叶琪:Hadoop不是万能的 要明确场景扬长避短 云网融合驱动数据中心技术聚变 给想持续编码CEO的4个建议 盘点开发者最喜爱的十大开源Xcode插件 Cloudera CTO:取代MapReduce 未来会加大Spark等框架投入 中航信资深分析师李洋:自主搭建云平台 助力民航业低成本迎接大数据挑战 安全狗创始人陈奋:借助Hadoop与Spark,欲打造服务器上的360 业界良心:Square开源Viewfinder,25万行代码全公布! 比尔&#183;盖茨:核心业务Bing虽不赚钱,却不能拆分 不可错过,参加第六届中国云计算大会的十大理由 不知道到那里问,借个人气了 托架的图标 散分! 如何建立一个这样的数据窗口? 上次未解决的问题(附源程序,及时结贴)(输入地址时http://ip/default.asp能正常使用,但是用http://ip则只能显示首页) 这个分页查询的SQL语句有什么问题?高分求教!!! 怎样求一个集合的子集? 我应该怎么做(项目经理请进,至少代表全国大部分公司的问题),一个年轻软件开发人员的问题 zzzzzzzzzzzzzzzzzzzz 高手指点迷津,如何更新数据库里的image字段 算法问题,再请教各位高手! 急急急,有关classpath 急!如何把picturebox中的内容保存成图片呢! Web Service中怎样验证身份? Web Service性能测试,欢迎评论,来者有分! 散分! 数据类型转换 ColdFusion的语言 - CFML win2003安装后,每个一秒种读一次盘是否正常 各位高手,最近在使用MASK PRO插件时碰到一个问题 x86汇编新手 星期六了,我还在工作....大家来帮忙看看。....很简单的问题 怎样在注册表里删除OFFICE 数据库不同,sql语句也有限制吗? 我在使用化境上传组件时碰到的问题,希望大家帮着看看,解决一下,高分求助 listview中的item能否变灰,也就是使某些项不能选 高分求各位高手急求!!!MP3问题 我的2k(PRO)我的电脑打不开,控制面版也打不开,其余的一切正常。这是为什么? 配置问题 关于上网,上传,二个大问题,高手请进,急! 一个打包问题 如何在asp里实现点一个按钮带动另一个软件的运行?急! 散分! 怎样将http下做好的网站,全盘转为https的.我准备买密匙的.想先测试一下. 如果判断当前时间是在某一时间段内? TX DATA SOURCES 數據源問題? 数据得导入和导出 给个好办法 反驳!“一位女生对男生追心仪女孩的建议”zz 请高手指点出我的小程序错误,谢谢! 菜鸟问题,这个combobox为什么不响应onchange事件?高手看看啊 高分求助 (100分) :求学生的平均分,并且排序输出成绩册!!!! 急!请问如何使用java语言获取mysql数据库的相关信息 编译4次便能成功! 下载UNIX 散分! Jsp函数中如何使用JavaScript中定义的函数? 无题! OnKeyPress和OnkeyDown有什么不同? void Page_Load(Object Sender, EventArgs e)语句,是定义一个方法函数,那括号中的Object Sender, EventArgs e可变吗? 有没有开发linux下防火墙的?怎么使用netfilter? 拜托看下几道不明白的化学题就告诉我吧我先感谢各位了9g 银离子的配位数为什么是2,银不是最外层的电子数为1么,失去电子后空出一个5S电子层,不是只能供给一对孤对电子么.就比如【Ag(NH3)2】+ 为什么银空出的5s电子层可以给两个NH3分子的两对孤 气体激光器用二氧化碳行么?怎么用? 补充词语:晶()明撤? 请问C中穿过线圈的磁感线为什么能相互抵消,如何相互抵消的.必采纳,谢谢 孔子曰:独学而无友,则孤陋而寡闻.这句话蕴含什么道理? 地球的地心引力存在与金星吗? 影子是什么颜色的? 如何吃q10辅酶 这个电路等效图怎么画?说明为什么. 铅锑合金的性能? magic melody中文意思 电机相与相之间的阻值不一样是不是证明电机已经烧了?万用表测量是65,65,25 梭伦改革中,按财产多寡划分社会等级,此举打击最大的是( )、梭伦改革中,按财产多寡划分社会等级,此举打击最大的是( )A.奴隶主阶级 B.氏族贵族 C.雅典公民 D.雅典外邦人为何不是A? H[PtCl3(NH3)] 中心离子是( ),配体是( ),配位数是( ).如果可以的话 请高手们能讲解下 给点参考资料也可以 更换烟灰缸时是将烟灰缸口对口还是底对口 英语翻译要求:按词(或词组)翻译词义,并说明该词(或词组)在短语中的词性和语法成分. 通电延时与断电延时有什么区别?顺便看一下这个题:时间继电器的四种延时触点是如何动作的? 求助几道不明白的化学题说出来吧,感谢各位9c 材料一梭伦改革中这项重要措施的划分等级的标准是什么 独学而无友,则孤陋而寡闻 大家告诉我下几道不明白的化学题说出来吧,感谢各位6c 英语翻译秦氏嘉庆本注:不可善,谓钩箝之辞所不能动,如此者必先命征召之.重累者,谓其人既至,然后状其材术所有,知其所能,人或因此从化也.房立中本译:对于那些以钩钳之术仍没法控制的 什么是超越国家权力的机构.举例欧盟和亚太经济合作组织. 谢谢你们了2H 英语中“烟灰缸”有没有什么引申或比喻的意思? 如何利用激光器采暖如何利用100瓦的灯泡制造激光器?如何使电灯泡的杂色光变成单色光 在括号里填上表示看的词语,什么什么远房什么什么星空?什么什么节目什么什么一眼 他喜欢抽烟,想要在生日时收到烟灰缸.(英语) 决定核糖体和内质网联系的是什么?书上说是蛋白质氨基酸末端序列,为什么 我作业有一题不懂,就是用“眼”组词,眼什么什么,如:有眼无珠、近在眼前. 幼讷于言,不补充. 独学而无友,则孤陋而寡闻,这句话怎么怎么解释呀!同题! 硫和氧气发生反应生成 幼讷于言,人未之奇.的意思 为什么“独学而无友,则孤陋而寡闻.” 氧气和硫反应生成一种___的____体. 幼讷于言,人未之奇的意思 独学而无友,则孤陋而寡闻的启示 与氧反应生成硫的物质 “幼讷于言,人未之奇”是什么意思?_ 国庆六十周年阅兵式礼炮意味着什么为什么六十响 直流24V转5V,用LM109,怎么样?有谁用过? 蔬菜类如何抽样,根据什么抽样的.各种蔬菜如何判定质量的好坏,什么可接收,什么不能接收 国庆60周年阅兵式礼炮到底鸣了多少下 美国为什么不准巴勒斯坦建国 MELODY的中文意思 国庆阅兵式 先升国旗还是现放礼炮 美国为什么要阻止巴勒斯坦入联? 物质____决定物质的_____,物质_____也决定物质的用途. 独学而无友,则孤陋而寡闻.在作文中的运用(急!)这句话怎么在作文中运用、还有、这句话的深层寓意是什么、主要是怎么在作文中运用、、请专家解释~急啊、、最好今天可以解决、! 若一个中学生的质量为40千克,求它的体积? 物质的用途由什么来决定? H2CO3不完全分解时,化学方程式是什么还有C+CO2生成什么 氧与硫反应生成带有什么的气体 人的体内为什么会有静电?拜托了各位 谢谢人体怎么会有静电,这是怎么回事? MOS管D极与S极之间的二极管有什么作用? 拜托看下几道不明白的化学题在线等了,感谢各位4c 根据电流磁效应我们发明了什么?奥斯特实验! 希腊梭伦改革后,公民是指什么,平民是指哪些 萧山万丰商住楼10多户人家遭遇用水难杭州1号线地铁三个高架站点碎了46块省卫生厅、省公安厅联合发文加强医疗场温州多地出现真假拼接的百元钞 可看到中方敦促日方停止刻意渲染外部威胁 说外媒称俄罗斯在G20峰会监控各国元首美国安局长监控欧洲盟国 称媒体误读斯永康68岁大爷得乳腺癌 百例患者中就杭州男子自家仓库中出现一条1米半大蛇瑞安5岁男孩被陌生男子挥刀砍伤 尚未各国如何处理打医生?潘基文欢迎以色列接受国别人权审查“世纪审判”撞上美窃听门隐形驱逐舰,是革命性武器还是奢侈品美窃听惹到\"愤怒的公牛\"利比亚枪手狂劫央行运钞车得手5000朴槿惠穿日本球鞋为韩国职棒开球 遭网利比亚枪手打劫央行5000万美元网友爆料杭州20来条最难走的路 有的杭州一处小区楼顶菜园改造成空中小花园杭州到广西快速铁路明年底打通 6.5云南昆明嵩明县发生4.5级地震 震源未来一周有两次冷空气影响河北 中后期最高法:2014年各级人民法院共立案深圳建成国内最大生活垃圾填埋气制取天第6届中国国际门博会申报首日 10分中国各地3月10日天气预报专家建议冬虫夏草可持续利用要走社区管浙江一法院去年司法网络拍卖成交额达1杭州萧山国企公务支出列负面清单 明确朴槿惠名誉受损案新证人出庭 驳日本记外国的牛肉未必香 “走私肉”未经检疫“西部畅想曲 贵州摄影艺术展”亮相上新疆开行“乘高铁看杏花”专列两会上的宗教界人士恒大vs永昌:高拉特埃神郜林齐上阵 上海口岸抽检进口服装:不合格率7.6中宁县圆满完成2015年度城乡居民基消逝的春运大麻袋武汉赏樱季将至2015年首场中泰顶尖拳王争霸赛3月吉林持续降雪 部分中小学停课
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘