国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

<small id="bzbng"><tbody id="bzbng"><noframes id="bzbng"></noframes></tbody></small>

<track id="bzbng"><dl id="bzbng"><small id="bzbng"></small></dl></track>

<small id="bzbng"></small>

<noscript id="bzbng"></noscript>

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

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

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

疑難解答

圖片精選

網友關注

主站蜘蛛池模板：内黄县| 怀化市| 武穴市| 逊克县| 翼城县| 始兴县| 永德县| 洛阳市| 大石桥市| 临清市| 平果县| 澜沧| 射洪县| 平罗县| 西和县| 潼南县| 黄石市| 克东县| 贵州省| 洪湖市| 锡林郭勒盟| 石家庄市| 龙里县| 岱山县| 斗六市| 镇赉县| 商都县| 南川市| 寿宁县| 淮阳县| 囊谦县| 益阳市| 北海市| 旺苍县| 文安县| 德江县| 衡南县| 牙克石市| 黑龙江省| 沅陵县| 松原市|

<style id="9hc9k"></style>

<small id="9hc9k"></small>

<source id="9hc9k"></source>