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

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

见证新一代全能大数据计算平台崛起 ——中国Spark技术峰会将于4月19日在北京召开 大佬放猛料的节奏 阿里云聚无线为开发者提供一站式服务 智能硬件又添新选手 汉王推出便携PM2.5检测仪 2014年首场百度轻应用高级训练营落幕 现场展示云端结合能力 销售易史彦泽:企业应用,自上而下的革命 专访寻医问药网创始人:轻应用背后的长尾效应 轻松打造品牌轻应用:实时Web App开发框架Clouda Intel强势入驻,Cloudera新一轮融资总额已达9亿美元 每个Web开发者必备的9个软技能 4月1日:闻名世界的苹果公司正式成立 AMD正在探索一种新颖的Linux开源驱动模式 QQ手机浏览器推出5.1播霸版 内置强解码引擎支持22种视频格式 Ceph浅析(上):概况与设计思想 IBM:你好,互联网 光网络SDN化的四大驱动力及两条路径 《近匠》酷传:解除App发布和监控痛苦 有道heX正式开源:用HTML5和NodeJS开发桌面应用 在3D空间创作:英大学生发明增强现实设计产品 2014年3月浏览器份额:Chrome终超Firefox 成市场第二大浏览器 2014年3月操作系统份额:Windows 7大涨,Windows XP仍未跌破27%大关 路透社:iPhone 6仅有4.7寸版本,将于5月量产,5.5寸遭冷冻 高端实战技术培训:OpenStack企业应用之路 据统计,Oracle已击败IBM跃居软件行业第二 【技术博客推荐】2014年值得关注的10个开源项目 Intel在深圳建立智能设备创新中心 将投入1亿美元 免费获得价值1200元Unity2014顶级盛会门票! IBM公布Softlayer中国业务落地时间表 推荐30款最佳的数据可视化工具 数据库迁移测试:选白盒还是黑盒? 东软发布首款英特尔架构企业级移动终端解决方案 英特尔与腾讯创立游戏创新实验室 推进RealSense技术 请问在COMCAT中如何更改根目录的路径 java 中的double类型,在Oracle数据库中应该对应的是什么类型? 怎样作才能不让用户随意更改系统时间和日期? 关于单击和双击的问题 请问一个关于GB要转换成日文的Shift-JIS内码的问题 请问一下这个字符串什么意思? 在ASP.NET中怎樣讀取通過用XMLHTTP Send過來的XML數據包(一個問題50) 关于IrDA在WINDOWS/NT/XP下的编程实现 一定给分啊,快点进来看看阿 ! 帮忙写个SQL语句。 静态文本框里的文字如何调整其大小? store procedure类型 数据窗口问题 编译器参数,在线等待 求sql 如何用BUTTON按钮,将一个窗体文件关闭? 非常简单的付值问题.火急,再线等待,马上送份 调用RasDia();第一次拨号成功断线后再拨就返回错误字符终止连接为何代码如下: 怎样能编写用于用ie注册邮箱、论坛账号时自动填表的软件 资源文件的问题! 一个挑战斑竹的问题!!50分 如何把压缩文件(*.rar或则*.zip)和word文档存到Acess数据库啊??? 如何可以知道访问我的网站的用户来自哪里? 关于SQL的问题 这对话框我如何去掉 asp.net 能否运行在Solaris系统下,参与者有分 c#请求援助 int a 除以 int b 取他们的余数用C#该怎么写啊?谢谢 求救!显示后台数据,在线等待!等…… jsp中的数据库问题,求教!!急 刚学数据库,弱智问题,高分赠送! 这个查询怎么写? 关于表生成文本文件遇到的事情,急 InstallShield Professional Standard Edition 6.30 英文版的下载(高分:200) 寻一男友:发展方向——>老公 我用serv-u,客户端访问为什么没有用户登陆窗口啊? 脚本验证datetime要准确点的 请问,想做出象Protel(Tango)作图效果的程序,如何下手呢? win API函数的区别(win xp 和win 2000)高难度!! 那儿有winsock.pbl 进入系统的速度变慢????在线等待 当 AllowPaging 设置为真并且选定的数据源不实现 ICollection 时,AllowCustomPaging 必须为真,并且 ID 为 DataGrid1 的 Data 怎么提高搜索速度? 如何printScreen并获得这个图片? 如何用SQL格式化一个IP地址?我得到的IP地址是一串数字,想显示为255.255.255.255那样的样子。 为什么在客户端出现Interface not support的错误? help,关于文本显示! SOS 急急急 请教几个概念? 如何打开一个用winexec打不开的可执行文件。 进入系统的速度变慢????在线等待 请大家谈谈目前比较经典软件,共享的,免费的,大公司的,个人的,国内的,国外的,不分行业等等,只要是经典都可以,请大家畅谈! 中国三大平原是哪些? 23.增值税一般纳税人销售货物适用13%税率的有(ACD)A.销售材料  B.销售钢材  C.销售图书  D.销售自来水 理由 每天看书的5分子1还多10页,4.5天看完这本书,问这本书一共多少页?怎么答题 春作者朱自清,现代著名散文家、( )、( )、( ).他的代表作有( )等 甲乙合作一工程要6天,如果甲先做3天,再由乙继续做8天刚好完成.若甲独做这一工程,要多少天呜呜呜,烦死了,端午节也在写作业,好多应用题不会, 一本小说,每天看45页,第16天看完;如果每天看54页,第14天就看完了,这本小说最多几页,最少呢? 我国的三大平原是哪些 一项工程,甲独做6天完成,乙独做8天完成.两人合做3天,完成这项工程的 双向自动扶梯一层到二层,两个扶梯梯级宽度都是800,三十度倾斜角度,提升高度为4200那么土建时,二层预留洞口宽度为多少,二层顶端是否要留得大点,一层基坑的大小是多少? 请告诉我一篇《清晨》三年级作文有多少字 一项工程,甲独做6天完成,乙独做8天完成,两人合做( )天完成,所以尽量将清楚 一本小说,如果每天看45页,第十六天看完;如果每天看54页第14天看完.这本小说最多有几页?最少呢? 用好像仿写句子,不是比喻句.好的要重谢!还有分 一项工程,甲单独做6天完成,乙单做8天完成,两人合做多少天完成? 我读1本书第1天读了10页以后每天都比前一天多读2页第16天读28页正好读完 这本书共多少? 作文:清晨,我走进校园写清楚走进校园看到的、听到的、想到的,描写要具体,想想要合理. 一项工程,甲乙合做8天完成.如果先让甲独做6天,再由乙独做,完成任务时发现乙比甲多了3天,乙独做这项工程要几天完成? 有关 崇尚科学,反对邪教 的征文800到1000字.麻烦写得水平高一些吧. 有带像、似乎但又不是比喻句的句子吗? 找一篇题目为等待的作文,字数600左右,要中学生水平. 一项工程甲队独做8天完成,乙队独做10天完成,甲乙合干三天,乙队另有任务,甲队还要干几天才能干完这工程高手来解 杯子怎样消毒 以舒适的早晨为题,写一篇350字左右的作文!急!一定要快!1快!有急用!!! 以"春节,我最快乐的一件事"为题,写一篇作文,字数500字左右, 新买的白瓷杯子怎么消毒还有 可以盛沸水吗 用不用每次盛沸水的时候先温一温杯子? 雨后的早晨(400字左右作文)《雨后的早晨》400字左右作文,急!好心人帮帮忙吧!还有,要怎么样点击才能选择满意答案呢? 我是个高中生,我写作文总是没话说,所以常因字数不够被扣分,怎样才能改善呢,还有怎样写好作文 目前,普遍使用什么消毒茶杯?A.煮沸 B.高压蒸汽 C.红外线 D.速消净 用上‘好像’一词 写一个不是比喻句的句子怎么写呢 我作文总是写不够字数怎么办?怎么才能有话说,凑够字数?基础差我看到作文就觉得没话说.怎么才能把文章写细腻,写够字数?800字 关于初三离别的作文 用好像一词写一个不是比喻句的句子 已知圆锥的底面半径是3,母线长为6,则该圆锥侧面展开后所得扇形的圆心角为需要讲解下.. 作文提纲,根据以下一段话,列作文提纲.“华盛顿走上大街,挥动礼帽,向群众致意.人们依依难舍,不愿离去,跟随他的马车一直走到他的寓所门前,这是任何语言也难以描绘的情景,这是任何人为的 小明,小英和小美三人定期向李老师求教,小明每六天去一次,小英每八天去一次,小美每九天去一次.他们每多少天会同时想李老师求教?最先的再加5分 帮我点评一下这篇托福作文,看看能多少分求 各种拍砖People work because they need money to live.What are some other reasons that people work?Discuss one or more of these reasons.Use specific examples and details to support your ans 总有一种期待的作文提纲 有没有否定语气的比喻句?就是,有“不像”的句子是不是比喻句?比如说,桥像彩虹,这是比喻句,并且是肯定句。有本体和喻体。但是,如果变为“桥不像彩虹”本体和喻体还成不成立呢? 励志名言名句,附带一篇演讲稿 求作文提纲——等待不如行动以 “等待不如行动” 为中心,列出三个分论点以及论证事例.最好是用辩证性思维去论证……EG:标题XXX分论点:1XXX(用XX、XX事例←一两句话概述)……可以多送 什么句子有“如”,“像”却不是比喻句,能举例子吗,比喻句有什么特点?"如玩电脑那般激动"是不是把干某件事情的心情比作玩电脑时的心情呢? 小红看一本书,第一天看了全书的14%,第二天看了12页,还剩27页没看.这本书一共多少页? 比较优美的哲理性散文有哪些?要朱自清的.(全文) 为什么句子中有“像”字却不是比喻句? 小红看一本书,第一天看了全书的10%,第二天看了全书的15%.第二天比第一天多看12页,还剩多少页没有看 甲乙两队修一条路,甲队独自修10天完成,乙队独自修15天完成.之后他们两队一起修,乙队因事请了几天假,之后两队一共用了8天,乙队请了几天假. 一项工作甲单独做需要5天完成,乙单独做要10天完成,若甲单独做了x天后,甲乙合作y天,则一共完成了( ) 蟋蟀怎么才能打架 我国三大平原是哪些? 一件工作,甲单独做X天可以完成,若甲、乙一起做,Y天可以完成,那么乙单独做几天可以完成 蟋蟀会因为吃的而打架吗 春是一篇 散文?朱自清是现代著名 ,,,. 一项工程甲乙合干12天完成,乙丙合干15天完成,甲丙合干20天完成,如果甲乙丙三人合干几天完成? 有一本书,原计划每天看20页,如果每天多看5页就提前2天看完,问这本书有多少页?请不用方程式解题,并讲出过程, 我国的三大平原 《青鸟》读后感50字0000000000000000000000000000000000000000000000000000青鸟》讲述的是:圣诞节前夜,伐木工简陋的小屋里,男孩蒂蒂和女孩咪蒂正在眺望富人家的孩子过节.仙女装扮成老太太请他们为她 蟋蟀为什么爱打架我要做问题,请帮我! 求一篇朱自清的2000字散文 一项工程,甲队6天完成,乙队8天完成,两对合作多少天完成工程的3分之2 ? 每天看书的5分子1还多10页,4.5天看完这本书,问这本书一共多少页? 中国与东盟关系迎来“钻石十年”新发展纽约华裔灭门案震惊社区 凶犯偷渡来美有研究称所有哺乳动物遵循21秒排尿定世上真有“摇钱树”:桉树能测地下黄金出租屋现633万巨款续:租客妻子称钱铁路部门新规:火车票只能改签一次 开金华00后女生溜冰场结识男子 旷课5揭秘1亿年前东亚大碰撞(图)美月监听法意西通话达千万次中日言辞行动剑拔弩张 是否会酿成冲突外媒称俄罗斯在G20峰会监控各国元首杭州到广西快速铁路明年底打通 6.5北京推出2万套自住型商品房 杭州暂时国务院批复绍兴撤销绍兴县设柯桥区 撤社会责任、职业良心千金难换奥巴马极力摆脱“监听门” 美国国安局叙利亚公布41处化武设施糖库失火“糖浆瀑布”堵门纽约手机可接收紧急警报40名非洲移民渴死沙漠纽约华裔灭门案震惊社区 凶犯偷渡来美今起最安全餐厅是A5分钟养生简餐 第44期工行北分主题活动取得成效酒“谜”做艾滋手术 在刀刃上行走检疫成摆设 谁的“权力”?长安街最后烟囱 今“退休”京味儿庙会台北展示“文化大餐”不再“容”忍忠魂归来空气质量看PM2.5 饮水质量看N1地铁芍药居站 今起封站被曝光餐巾纸 停产停售骑车人撞车身亡 鸣笛人担责?谁动了你家WiFi?3·15晚会 收投诉增3倍香奈儿降价 谁占“便宜”?卫生间漏水 业主起诉索赔公安部发文:重大疑难案件将建集体讨论工银瑞信近半年业绩继续领先违规送燃气 金杯塞10余罐
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘