亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

取得某個目錄底下所有文件大小總和

2019-11-18 17:34:51

字體：大中小

來源：轉載

供稿：網友

含目錄底下的子目錄，求得其所有文件大小之總和其第二個叁數的目的是起始Static型態的totbyte,呼叫它時，請不要傳叁數進去
Debug.Printtot
EndSub
PrivateFunctionGetDirTotalByte(CurrentPathAsString,OptionaliAsLong)AsLong
StatictotbyteAsLong
DimnIAsInteger,nDirectoryAsInteger
DimsFileNameAsString,sDirectoryList()AsString
注釋：Initialtotbyte,ifitisnottheRecursivecallthefunction
Ifi<>1Then
totbyte=0
EndIf
注釋：Firstlistallnormalfilesinthisdirectory
sFileName=Dir(CurrentPath,vbNormal vbHidden vbReadOnly vbSystem vbArchive)
DoWhilesFileName<>""
totbyte=totbyte FileLen(CurrentPath sFileName)
sFileName=Dir
Loop
注釋：Nextbuildtemporarylistofsubdirectories
sFileName=Dir(CurrentPath,vbDirectory)
DoWhilesFileName<>""
注釋：Ignorecurrentandparentdirectories
IfsFileName<>"."AndsFileName<>".."Then
注釋：Ignorenondirectories
IfGetAttr(CurrentPath&sFileName)_
AndvbDirectoryThen
nDirectory=nDirectory 1
ReDimPreservesDirectoryList(nDirectory)
sDirectoryList(nDirectory)=CurrentPath&sFileName
EndIf
EndIf
sFileName=Dir
Loop
注釋：Recursivelyprocesseachdirectory
FornI=1TonDirectory
GetDirTotalBytesDirectoryList(nI)&"/",1
NextnI
GetDirTotalByte=totbyte
EndFunction->

上一篇：VB6中的FSO對象模型

下一篇：將阿拉伯數字轉成中文字的程式

學習交流

索泰發布一款GTX 1070 Mini迷你版本:小機

索泰發布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注

新聞熱點

榮耀總裁趙明烏鎮演講：榮耀首款5G手機V30下月發布

2019-10-23 09:17:05

搜狐張朝陽：回歸媒體是搜狐重新崛起的關鍵

2019-10-21 09:20:02

華為輪值董事長郭平：虛擬技術創造現實價值

2019-10-21 09:00:12

滴滴英文服務上線兩周年用戶已超200萬

2019-09-26 08:57:12

華為推出全球至快AI訓練集群Atlas900

2019-09-25 08:46:36

馬斯克：特斯拉正組建中國技術團隊

2019-09-25 08:15:43

疑難解答

圖片精選

網友關注

亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

久热精品在线视频| 欧美日韩国产丝袜美女| 亚洲国产小视频| 中文字幕亚洲欧美日韩2019| 欧美日韩中文在线观看| 久久999免费视频| 91在线无精精品一区二区| 日韩精品免费在线| 久久成人国产精品| 欧美午夜片在线免费观看| 欧美人成在线视频| 一区二区三区回区在观看免费视频| 97精品伊人久久久大香线蕉| 久久频这里精品99香蕉| 欧美激情性做爰免费视频| 日韩av片电影专区| 国产精品一区专区欧美日韩| 久久久久久久电影一区| 蜜臀久久99精品久久久久久宅男| 亚洲国产精品va| 国产成人综合一区二区三区| 国产亚洲欧洲高清| 亚洲国产欧美一区二区三区久久| 欧美视频13p| 欧美国产极速在线| 欧美电影免费播放| 国产精品三级网站| 国产精品人成电影在线观看| 伊人伊人伊人久久| 国产精品久久久久国产a级| 日本中文字幕不卡免费| 欧美色视频日本高清在线观看| 成人精品久久一区二区三区| 久久香蕉精品香蕉| 97久久精品人搡人人玩| 97视频人免费观看| 欧美亚洲在线播放| 国产欧美日韩高清| 欧美午夜精品久久久久久浪潮| 亚洲成人av片| 一区二区三区国产视频| 亚洲2020天天堂在线观看| 亚洲成**性毛茸茸| 国产精品电影观看| 免费99精品国产自在在线| 国产精品免费在线免费| 欧美精品18videos性欧| 欧美黄色小视频| 81精品国产乱码久久久久久| 亚洲人成电影在线| 亚洲视频自拍偷拍| 欧美性理论片在线观看片免费| 欧美日韩国内自拍| 成人免费网站在线| 国产小视频91| 久久琪琪电影院| 一个人看的www久久| 欧美日韩色婷婷| 97欧美精品一区二区三区| 国产精品嫩草影院久久久| 爽爽爽爽爽爽爽成人免费观看| 欧美精品久久久久a| 国产在线拍揄自揄视频不卡99| 欧美多人爱爱视频网站| 国产97在线|亚洲| 国产精品视频色| 欧美限制级电影在线观看| 日韩精品中文字幕在线观看| 一级做a爰片久久毛片美女图片| 亚洲国产精品va在线看黑人动漫| 日韩高清a**址| 欧美性猛交丰臀xxxxx网站| 亚洲午夜久久久久久久| 97精品国产91久久久久久| 色综合久久久久久中文网| 久久亚洲综合国产精品99麻豆精品福利| 欧美日韩国产一区中文午夜| 91久久久久久久久久久久久| 国产精品高精视频免费| 日韩成人在线电影网| 色综合久久久888| 午夜精品99久久免费| 日本亚洲欧美成人| 国内偷自视频区视频综合| 久久久久久这里只有精品| 日韩中文字幕免费| 亚洲成人久久电影| 性欧美长视频免费观看不卡| 国产91精品黑色丝袜高跟鞋| 精品国产1区2区| 中文字幕综合一区| 国产精品福利片| 91av在线视频观看| 久久久人成影片一区二区三区观看| 日韩在线观看免费全集电视剧网站| 日韩精品在线第一页| 亚洲精品国产精品国自产在线| 在线精品视频视频中文字幕| 欧美大全免费观看电视剧大泉洋| 亚洲一区中文字幕在线观看| 亚洲精品一区中文字幕乱码| 欧美最猛性xxxxx亚洲精品| 国产精品免费一区二区三区都可以| 日韩电影免费观看在线观看| 欧美性生活大片免费观看网址| 欧美激情在线视频二区| 国产综合色香蕉精品| 国内精品美女av在线播放| 欧美国产日韩中文字幕在线| 51ⅴ精品国产91久久久久久| 日韩精品欧美激情| 九九热这里只有精品免费看| 欧美贵妇videos办公室| 成人免费xxxxx在线观看| 久久久女女女女999久久| 国模gogo一区二区大胆私拍| 一区二区在线视频播放| 亚洲人成欧美中文字幕| 亚洲欧美激情精品一区二区| 国产亚洲aⅴaaaaaa毛片| 国产91精品久久久久久| 亚洲第一男人天堂| 少妇高潮久久77777| 国产三级精品网站| 国产精品h片在线播放| 久久综合久中文字幕青草| 欧美成人精品不卡视频在线观看| 91国产在线精品| 亚洲国产美女久久久久| 亚洲国产精品一区二区久| 久久久久久久久久久91| 国产精品午夜一区二区欲梦| 国产999精品久久久| 国产一区视频在线播放| 精品免费在线视频| 久久精品视频导航| 久久精品一区中文字幕| 91精品视频一区| 97视频网站入口| 国产精品成人av在线| 欧美重口另类videos人妖| 正在播放亚洲1区| 国产一区二区激情| 国产亚洲欧美视频| 国产精品pans私拍| 欧美国产一区二区三区| 97在线精品视频| 欧美高清性猛交| 欧美国产高跟鞋裸体秀xxxhd| 欧美肥婆姓交大片| 欧美影院在线播放| 亚洲天堂2020| 日韩黄在线观看| 亚洲白拍色综合图区| 欧美性受xxx| 亚洲欧美国产精品va在线观看| 日韩av在线一区| 色综合伊人色综合网| 亚洲一区制服诱惑| 亚洲成人激情在线观看| 成人h视频在线| 91香蕉国产在线观看| 午夜精品美女自拍福到在线| 国产精品视频中文字幕91|