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

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

数据密集、快速启动、核心应用,IBM存储重兵布阵 企业移动应用与BYOD:移动互联大势所趋 “首届智能硬件峰会”上午会议亮点汇总 代价究竟高不高,苹果为什么要在Android专利诉讼上花费2亿美元? 产品与设计专题论坛(下):App之美 产品与设计专题论坛(上):扁平还是拟物?产品说了算! 首届移动娱乐游戏峰会:中外手游的交锋与对抗(下) 研发人员超过500,基金会金牌会员,华为豪赌OpenStack New way of thinking:索尼SmartWatch 2应用开发马拉松大赛圆满结束 离了你地球照样转,谷歌地图并非苹果的必需品 面试必备的9大成功秘诀 Chuck Goldman:乔布斯从来不会说苹果不是企业应用的公司 全球最大的图片社交分享网站Pinterest发布首个API UX设计程序的五个谬论 研发周报:2013年美国开发者薪资调查报告 【开源推荐】PredictionIO:构建预测功能的机器学习服务器 只需4步 百度SiteApp助力京华网移动版落地 Windows Azure开放公测5个月的收获 RDS添加PostgreSQL支持 几家欢喜几家忧 首届智能硬件峰会:解读硬件创业机遇与挑战(下) 平台与技术专题论坛(二):游戏开发实践分享及IE11新体验 看Twitter上市后的入职面试题 六届中国大数据技术大会PPT精粹(三) AMD推多款异构计算开发工具 着力打造APU软件生态系统 Ceylon 1.0发布:又一个“Java语言替代品”? HTML5开发工具:英特尔XDK New 苹果公司为何“情系”PrimeSense 微App专场:不同平台下微App开发运营那些事 25载工程经验,HBase七年——BDTC2013讲师Michael Stack 或许对你创业有所启示:10个英国快速增长的科技创业公司 小米游戏中心10月报告:分析各种手游活动之优劣 请指教如果设置服务器端COM组件的权限,使终端可以访问到?分数好说啦,急,高手快帮忙! 如何把程序嵌入到widows Expolore 中? 今天心情特好!散分 在vc下怎样调出window下的“打开方式”对话框,他是类还是控件!请高手指点! 一个门外汉的问题~~~~ 谁知道windows共享密码如何算的 vc中asm怎么不執行? 在开始菜单点右键,拉出的菜单里的内容,怎么添加删除?? 帮忙找一个和VB的属性区一样的代码,控件或类库均可。 Word 中字体的问题 我买了一台SLE4442读写器, 为什么不能写 谁用过FAST REPORT 请求帮助 realplayer中文件菜单栏中的以看过的文件名,怎么删除??? php如何改写或者是添加一个cron的命令参数给linux服务器? SQL Server 能制作表单和报表吗?????? DirectDraw页面格式问题(两个)。答对100分绝对送上,从不食言!(附源码) VC++中的内部交互调试器在哪? 人邮版的C++面向对象高效编程如何? realplayer中文件菜单栏中的以看过的文件名,怎么删除? 如何实现真正的无标题栏的拖动? 用"select top n"取了前n纪录后,要再接着取n+1至2n条纪录,接着再取2n+1至3n……,这种取法要怎样实现呢? 如何在Excel中编制一个宏? 如何得知程序的一个实例正在运行? 送分了,送分了,虽然不多,但天天有! 为什么select count(*) from test 时,提示表或示图不存在!!! 请问如何设置mp3文件的在线播放?? 请问在内部局域网正常的情况下,打印机无法共享(共享以后没有效果)的主要原因是什么?谢谢! ===我对Linux上的Oracle8.1.7.0.1操作的时候只读,为什么啊???==== 请给我一个GetCurrentDirectory使用实例, 问一个深入MFC的简单问题 请问有关delphi项目编译的一个小问题。 各位,那里有VisualAge for Java4.0下在?我从ibm的网站上下载了,但是安装不了,说是语言不对! shcv.dll 编译不过去!!!!! have a test!have a test!have a test!have a test!have a test!have a test!have a test!have a test! mysql 结果中再次查询如何才能实现呢 pc2phone java支持byte[] a = String.getBytes("iso-8859-1");转换吗? c语言中关于对windows命令调用的语法、命令及其格式。 怎么样捕捉数据库连接出错的信息?? 在SQL语句中,如何获得一汉字字段的字节长度,而不是字符长度?如“测试”返回4,不是2 如何建树 winsock.dll提供的都是什么函数?如果它提供的是winsockAPI,那么winsock32。lib提供的又是些什么?它们重复吗? FormatDateTime这个函数的日期间的字符不支持汉字,怎么解决? 关于用JAVA生成GIF的问题?(16M的GIF,256的我已经知道了) 如何在ACCESS李使用SQL? 梦天请进,谢谢! 能不能将对象序列化后存到数据库再取出还原?有没有例子? 分屏的已个视要做成对话框,请指教,顺便告诉我如何给分,只能给这么多 sorry,梦天进来,thanks!! 急!请问怎么在java类里写编译另一个类的语句?? m、n为系数,且mx+2xy-x与3x^2-2nxy+3y的差不含二次项,求m^2-3n的值 右图是由边长分别是4CM 3CM 的两个正方形组成的图形,求阴影中的图形的面积 0.001做单位的数是什么 用累加法和累乘法, 下图是由边长分别为4cm和3cm的大小两个正出形组成.请求出图中阴影部分的面积. 0.5的计数单位是十分位,把它改为用0.001作单位的数是( ) 请教各位高中数列中在什么情况下使用累加累乘法如题 证明多项式f(x)=1-(x-1)(x-2)(x-3)……(x-n)在有理数域上不可约 多项式在各个数域中怎么标准分解?例如f(x)=x^5-x^4-2x^3+2x^2+x-1在有理数域,复数域,实数域上的分解. 风机电动机用变频器启动,启动电流能降低多少? f(x)是整系数多项式,对每一个素数p,f(p)都是素数,证明f(x)是不可约多项式 这个多项式能否在有理数域上进行分解?f(x)=x^4-5x+1我试过了Eisenstein判别法以及几个变体还是判断不出来 22kw的电机连接变频器 启动电流是多大 选多大的电机保护开关合适 要是用星三角启动 该怎样和变频器连接 用累加法/叠加法(有图)它是怎么累加的?第一个是(n-下标+1)的话,那不是变成乘1了吗? 用 for 循环求 200 之间的偶数之和.用matlab计算, 电动机起动时和正常工作时的电流哪个大?为什么? 若整系数多项式在有理数域可约,则改多项式一定有有理根.请问大神们,这句话对否? 用Matlab实现:统计1~100中有多少个偶数、奇数以及质数,输出结果,咋处理? 20分之9的分数单位是几,化成用百分之一做单位的数是几 x^2-2在有理数内不可约.则x^2-2是以√2为根的最低次数的有理系数不可约多项式,为什么? matlab中怎么实现奇数和偶数不一样的循环?i=偶数的时候,执行pa(i)=pa(i)+5i=奇数的时候,执行pb(i)=pb(i)+5 在康托尔证明有理数集是可数集中的疑问在康托尔证明有理数集是可数集的过程中,如果不是将分子与分母的和与所对应的自然数配起来,而是1配1 ,2配1/2,3配1/3.这样配下来有理数集中还有剩余 对于任意两个正整数m,n,定义运算&,当m,n都为偶数或都为奇数时,m&n=m+n/2;当m,n为一个奇数、一个偶数时,m&n=根号下mn .设集合A={(a,b)|a&b=6,a,b€N*}试求集合A中的元素个数. 2、用Matlab实现:统计1~100中有多少个偶数、奇数以及质数,输出结果. 有理数集是可数集?如图,这个图中只用正的有理数,那么负的有理数怎么办? 定义一种对正整数n的“F”运算:①当n为奇数时,结果为3n+5;②当n为偶数时,结果为 (其中k是使 为奇数的正整数),并且运算重复进行.例如,取n=26,则:若n=449,则第449次“F运算”的结果是多 一个偶数既是3的倍数,又有约数5,这个数最小是( ) 如何证明有理数集是域? 若新定义运算,当M为奇数时,□M=3m;当M为偶数时,□M=1/2m.问□9*□6为多少!是□9 ×□6 一个数,有三个约数,其中两个分别是2、5,另一个约数是7的最小倍数,这个数是多少? 证明有理数集是零测集 定义一种对正数n的“F”运算:一、当n为奇数时结果为3n+5;二、当n为偶数时,结果为n/2^k(其中k是使n/2^k为奇数的正整数),并且运算重复进行.例如:取n=26,则:26经第一次F二运算结果为13, 不改变数的大小,把下面各数改写成以千分之一作单位的数1.0300=( ) 0.77=( ) 3.4=( ) 5.2=( ) 已知正方形边长为a,分别以a为半径做扇形,则如图所示的阴影部分是多少?a=2,阴影部分面积是多少? 证明有理数域Q上一元多项式环Q【x】的理想(2,x)是主理想 不改变数的大小,把6.9改写成以千分之一为单位的数是多少 已知正方形边长为a,分别以a为半径做扇形,则如图所示的阴影部分是多少? a=2,阴影部分面积是多少? 用c++将n个正整数(n从键盘输入,n 用JAVA程序 分别求出1--100间的奇数,偶数之和.(奇数之和用while语句,偶数之和用do--while语句) 已知正方形边长为a,分别以a为半径作扇形.阴影部分的面积是多少?当a=2时,阴影部分面积是多少? 大正方形边长5cm,小的边长3cm,求阴影部分两个三角形面积 1-100之间的偶数和与奇数和` JAVA如题 求1-100之间的偶数和与奇数和;我是初学 JAVA的 希望会的朋友可以指点下我 已知正方形边长为a,分别以a为半径做扇形,则如图所示的阴影部分是多少?a=3,阴影部分面积是多少?已知正方形边长为a,分别以a为半径做扇形,则如图所示的阴影部分是多少?a=3,阴影部分面积是多 把3.8改成以0.001为单位的数是 把1.2345亿改写成用1作单位的数 斐波那契数列 前n项和公式不要通项公式. EXCEL问题:统计下面方框内所有每个数的数量,在另外一行显示出来.列如:1有4个,2有5个. 一个数是5个2,3个3,2个5,1个7的连乘积,这个数当然有许多约数是两位数,这些两位数的约数中,最大是几 累加法,累乘法怎么去理解累加法,1 + 3 + 5 + 2n-3 =1 + 2n-3 / 2 乘 n-1是怎么来的? 累乘法具体内容又是什么?又该怎么理解? 应用excel表格计算一行数字中连续出现的相同数字的最大个数?例如:1 1 1 1 0 0 1 2 2 2 0 0 0 0 2 2 这行数字中1的最大个数为4个 ,2的最大个数为3个,0的最大个数为4个,就是想求这个个数? 如图,大小两个正方形的边长分别为10cm·8cm,求阴影部分的面积 为什么整系数多项式方程的实根必为整根或无理根?(要求证明)若是二次的呢? f(x)=x^9+x^8+x^7+x^6+x^5+x^4+x^3+x^2+x+1在有理数域、实数域上的不可约多项式乘积 右图中,大正方形的边长是10Cm,小正方形的边长是8CM,则阴影部分的面积是( )平方厘米 任何次数大于1整系数方程的代数数可能是有理数吗 计算1到M(M为偶数)之间的奇数之和和偶数之和#include #define M 100main(){ int a,b,c,i;clrscr();a=0;c=0;for(i=1;___(1)___;i+=2){ a+=i;___(2)___;c+=b; }printf("sum of evens is %d\n",c);printf("sum of odds is %d\n",a); }结果··SUM 将多项式(1-3x+2x^2)^2001*(1+3x-2x^2)^2001*(x^2+x+1)^2001展开后合并同类项,各项系数的和是多少 把5.4改成用“百分之一”作单位的数是( ),把2.5673亿改写成用“一”作单位的数是 求教:如图,两个正方形的边长分别为8cm,12cm,那么图中阴影部分的面积是多少? 把0.001改写成用千分之一做单位的数
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn