国产探花免费观看_亚洲丰满少妇自慰呻吟_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>