獲取目錄大小

Question

我需要查找文件夾的大小並在文本框中以KB爲單位顯示大小。

任何人都可以幫助我做到這一點，並給我一個例子，因爲目前我已經嘗試使用下面的方法，但它只能讓你找到文件的大小而不是文件夾，它只顯示字節，而不是千字節。

Dim infoReader As System.IO.FileInfo 
    infoReader = My.Computer.FileSystem.GetFileInfo("C:\imdb\bgs") 
    MsgBox("File is " & infoReader.Length & " bytes.") 

Answer 1

我不清楚你如何使用System.IO組裝，但如果你使用Microsoft Scripting Runtime（C：\ WINDOWS \ Syswow64資料\的scrrun.dll），你可以得到一個Folder和File對象其尺寸屬性表示爲字節。

Dim fso As New FileSystemObject 
Dim sizeInBytes As Long 
sizeInBytes = fso.GetFolder("C:\imdb\bgs").Size 
Debug.Print sizeInBytes 
sizeInBytes = fso.GetFile("C:\imdb\bgs\.somefile.txt").Size 
Debug.Print sizeInBytes