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具有size属性表示为bytes的对象。

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

获取目录大小

1 个答案: