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

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

AMD发布GPUPerfAPI 2.14,GPU性能检测更Easy! 开放能力升级——微信公众号登陆授权开启公测! 百度最“智能”的新型推荐技术——智能因子分解机 消灭Bug!18款最佳的问题跟踪管理应用程序 Google Analytics为什么会这么快 【MDCC 2014】Xamarin深入体验营——开发实战大揭秘 【MDCC 2014】电信技术专场:运营商与开发者如何合作共赢 【MDCC 2014】高德LBS大赛闭幕式暨颁奖典礼:下一个50亿应用花落谁家? MDCC 2014移动开发者大会开幕:全生态系统齐聚 开发者成主角 蓝港互动有限公司董事长&amp;amp;首席执行官王峰:移动互联网泛娱乐化趋势 多盟联合创始人&amp;amp;总裁张鹤:多盟DSPAN助力开发者高效变现 创新工场联合创始人汪华:移动互联网时代的跃迁式增长 阿里巴巴集团UC移动事业群总裁俞永福:AMAP Inside——更专业、更开放 《程序员+》移动应用上线 启动“2014 MDCC十大人气应用/产品评选活动” 微软开发体验与平台合作事业部大中华区DX部门总经理Srikanth Raju:基于云的跨平台开发 Facebook平台工程合作部亚太区总经理张博:通过Facebook构建下一代移动应用 Vungle工程副总裁Wayne Chan:移动视频广告的未来 友盟副总裁焦岳:2014移动互联网行业趋势&amp;amp;大数据的行业价值与运营支持 联发科技创意实验室副总裁Marc Naddell:以小博大的可穿戴方案 用友软件股份有限公司高级副总裁谢志华:企业互联网移动化触手可及 【MDCC 2014】英雄会晚宴——厉兵秣马,再上征程 移动开发技术与平台峰会(上):流量优化、数据管理、IM、LBS与跨平台开发 【推广、盈利与投资论坛】探寻推广与盈利新趋势 【企业移动化论坛】翻山越岭,创新突围企业移动化 解读微信与开发者双赢的开放能力 2014年10月操作系统份额:Windows 8.1份额喜人,Linux跌惨了 智能硬件峰会(下):苹果、微信、小米带给移动医疗产品开发的启示 移动游戏峰会(下):从端游转型手游、如何做一款不一样的游戏 移动游戏峰会(上):小团队如何做出大制作、游戏防作弊攻防战 深圳微信开发者大会:拒绝概念 这次只谈“怎么做” AMD应邀出席HPC China 2014,重磅推出新一代Firepro-S系列高性能显卡 JBuilder如何产生Make文件? 如何使listbox的两列显示对齐? 如何在自己的主页中添加代码??用来污染IE的,到底是加在哪个位置??//最好写具体些!!! 关于图片存入数据库的问题 请教大量二进制数据在内存中的存放(马上给分) 讨论:有关tomcat的解释顺序的问题. TechnoFantasy 请近来,还有100分哦:) 打印问题 强烈建议在文档中心增加C++ BUILD!!! 对于同一个SOCKET,能否起多个线程同时读、写呢?如何实现? ??!!!有急事相求 谁知道如何在自己的程序中建立象IIS那样的meta-database数据库结构? 怎样在数据库连接关闭后读出数据? 你知道扩展名为img是什么文件吗? 请问如何在Delphi中实现 AutoComplete(自动完成) 的功能?急!急!急! 请教一下在MDI的程序中pmyView->GetParent()->GetParent()->..... 都得到了什么?? 好奇怪的初始化问题。 一个RANDOMACCESSFILE的问题 急急急!!!VB中如何 实现多行删除表中数据???? 有关注册表的问题 ASP中用ADO连接SQL Server2000的连接字符串怎么写? 在画布上怎么实现滚动条 急~~~如何从文件中取值赋给动态数组?~~~~在线等待 到哪里能够下载 BCB6 Update 请问关于REDHAT下关于安装MYSQL 的问题 请问关于REDHAT下关于安装MYSQL 的问题 CreateFolder("name") 问题 name是变量怎么办???? 急!!! 如何做像 http://www.my0807.com/1.gif 的文字。。 请教真正的高手。 如何用TURBOC 2.0编程检测WINDOWS是否已在运行中? VS.NET能专Windows98中安装吗? 如何创建一个imagelist,用CImageList,可以记录24位色的位图 这个关于树的问题我越想越想不通,请手指点指点:) 用winsock控件设置client/server程序时,server端应怎样设置,请各位大虾帮帮小弟!!谢了! 从MIDI文件转换成简谱的问题? 请问谁有高招??????? SOS ,谁能帮帮我? 如何在一个程序中得知另一个指定的程序是否运行? 很急!!请教高手,这样的思路是否正确?(数据库方面)内有非常详细的说明,谢谢!! 我是处学者 这个关于树的问题我越想越想不通,请手指点指点:) 50小分征集C++的类和VBS的类的区别? hg0001(CoolFish) ,分已给!请发给我! 电脑上的时钟在关机之后就停止走动,下次开机时仍是上次的时间,是怎么回事?请教大家! 如何使用 WRITEFILE 函数将二进制数据写入文件? 我装的是XP,JDK1.3,无法编译程序 电脑上的时钟在关机之后就停止走动,下次开机时仍是上次的时间,是怎么回事?请教大家! 如下的演示光盘要实现的功能用什么软件开发比较好一个新手完成要多长时间? windows如何实现禁用状态文字? 输入不回显 你没有权限删除贴子!!!奇怪 一个数被8除余5,被5除余2,被7除余5,这个数最小是() 细菌芽胞怎么杀灭 0.4166 百分号前怎么保留1位小数 将15克A物质,24克B物质,8克C物质混合加热,发生化学反应,经分析得知反应的混合物中含8克A,30克C,接上面的题目:还含有一种物质D,若A、B、C、D的相对分子质量依次为28、32、44、18则它们之间所 细菌的繁殖体是什么, 一个百分号前保留两位小数的百分数,百分号前保留一位小数时,它的近似值是90.0%这个百分数最大是(),最小是(). 芽孢怎么从细菌里出来 第17题求解,请一步步来解释,因为本人不会余式定理. 0.3598(百分号前保留一位小数) 真菌和细菌都能产生芽孢? 求初中余式定理例题 液氮能瞬间杀死植物叶片细胞吗各位植物生理方面的专家,学者,师兄师姐,师弟师妹,我最近在做植物生理方面的论文,请问,我在采植物叶片时,将采下来的叶片立即放入液氮处理,这样可以立即 ______ the four seasons,which season do you like bestA.of B.DuringC.forD.to理由 “尕”这个字怎么读,要读音. 植物经液氮冷冻后,它的细胞结构会发生什么变化吗?用液氮冷冻后的叶片做石蜡切片观察叶片形态解剖特征,会和没冷冻的叶片的形态解剖特征一样吗 一个数被8除余5,被5除余2,这个数最小是多少? 《汴》这个字怎么读 不要拼音 说出跟它读音一样的就行了 液氮能将植物组织破碎到什么程度? 一个细菌一生可以形成几次芽孢? 衢怎么读音 液氮处理新鲜植物时的操作办法看到大家都说是在研钵中边加液氮边研磨.问了以前提过的同学,说这样子会耗费大量的液氮能磨细的样品却只有一点点.可是我液氮是问其他专业人借的,顶多1L, 这个字读什么(衢)有人知道吗 哪种形状的细菌会产生孢子(芽胞)? 3x的平方等于27,用开平方法做 一个平行四边形的底长18厘米,高是底的2分之1,它的面积是() 1、一个数被3余1,被5除余2,被7除余2,这个数最小是( )2、一个数被5余2,被6除余3,被7除余4,这个数最小是( ) 听说冰箱里的细菌很多,是这样的么?怎样除冰箱的细菌? 衢.这个字怎么读, 甄姬~~这2个字的拼音是什么? 关于同余和孙子定理的证明题如果x,y是不被3或5整除的整数试证明x^4≡y^4 (mod 15) "衢"这个字读啥? 甄姬的名 张郃的字 怎么拼?求拼音帝指点秦宓,mì,四声,可洛神赋中宓妃怎么念fú? 一个数被5除余1,被7除余3.求这个数?怎么算啊 衢.这个字读? 这俩字咋读,要拼音 如何证明 同余定理 中的 除法原理?除法原理:a ≡ b mod(cn) ==> a ≡ b mod(n); 求教如何证明? 用数学归纳法证明:1×2+2×5+.+n(3n-1)=n^2(n+1)复制粘贴来的别给我谢谢 这拼音读什么字 基本定理 证明能不能看下第四,五题和第七,八题,五七完全就没看懂,四和八有思路但四题为什么a可以等于0啊,八题聚点那个怎么弄进去. 用数学归纳法证明:1*2+2*5+...+n(3n-1)=n^2(n+1)(n∈N*) 判断题;平行四边形的四个边都可以做底 为什么这里会说“被液氮冷却的“高温””这里的高温指的是超低温是吧? 读拼音,在括号里填上合适的字.qū理( )( )服急急急~~~~~ 平行四边形有四个角四条边折到判断题对吗? 谁能告诉我泊松定理怎么证明?n(n-1)...(n-k+1)/k!(λ/n)^k怎么就等于(λ^k/k!)(1-1/n)(1-2/n)...(1-(k-1)/n)? 请问站在道德的制高点审视他人是什么意思?可以举点例子吗?理论说明更好! 平行四边形的判断题 只要判断题 比如平行四边形的性质,盼定等等等等 测定激素的叶片,没有用液氮速冻,直接放在超低温冰箱中影响大吗 肉制品芽孢菌如何杀死高温灭菌锅多少温度和时间合适? 请举一个例子说明乘数原理? 一道关于平行四边形的判断题平行四边形都不是对称图形.一般来说.我觉得是对的.可有的人说“都”.正方形是的啊. What would you like to eat in the season?What's the weather like in the season? 什么是限制因子定律?并举例简要说明 用数学归纳法证明,当n为正奇数时,x^n+y^n能被x+y整除求详解 英语句子的回答:1、What can you wear in the season?2、What’s the weather like in the season? 举几个说明事实与理论存在差距例子一个不够 在化学反应中A+2B=C+2D中,5gA物质与20克B物质刚好生成C物质15克.在化学反应中A+2B=C+2D中,5gA物质与20克B物质刚好生成C物质15克.若生成D物质30克,则需消耗A物质多少克? What was the weather like on that day?的中文谁知道? 一个细菌能形成几个芽胞 有A.B.C三种物质各15克,在一定条件下充分反应只生成30克的D,诺增加10克的A,则反应停止后,原反应物只有C,根据上诉条件中正确的,为什么是第2次反应停止后,C剩余5克.和D反应中B与C的质量比是3
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘