如何快速知道硬盘上每个文件夹大小是多少？

1、首先打开电脑，找到“计算机”快捷方式并双击打开，如下图所示。

2、在功能菜单栏找到“组织”选项，单击打开下拉菜单，找到“文件夹和搜索选项”并点击进入。

3、在d出的小窗口中单击“查看”菜单。

4、下拉找到“在文件夹提示中显示文件大小信息”，并在前面的方框中勾选，点击确定。

5、这时将鼠标放在要查看的文件夹上，即可快速知道文件夹的大小。

du：查询文件或文件夹的磁盘使用空间

如果当前目录下文件和文件夹很多，使用不带参数du的命令，可以循环列出所有文件和文件夹所使用的空间。这对查看究竟是那个地方过大是不利的，所以得指定深入目录的层数，参数：--max-depth=，这是个极为有用的参数！如下，注意使用“*”，可以得到文件的使用空间大小.

你也可以试试用腾讯电脑管家来全方位的实时保护你的电脑。

把这里指定的类型“.mp3”改成你需要获取的文件类型试试。

'请在VBE/工具/引用中勾选：MICROSOFT SHELL CONTROLS AND AUTOMATION，否则提示类未定义

Public arrFiles, n As Integer

Sub 批量提取压缩包内所有文件大小()

  Dim oApp As Shell32.Shell

  Set oApp = New Shell32.Shell

  Dim strFile As String

  Dim xFname

  Dim xRow As Long

  Dim newRow As Long

  Dim rNew As Range

  Dim fileNameInZip, fd

  Dim oFolder As Variant

  Dim i As Integer

  Set Rng = Application.InputBox("请选择单元格区域", Type:=8)

  If Rng.Count = 0 Then Exit Sub

  Set Rng = Intersect(Rng.Parent.UsedRange, Rng)

  For Each Cell In Rng

      If Cell.Offset(0, 3) = "zip" Then

          strFile = Cell.Hyperlinks(1).Address

          ReDim arrFiles(1 To 100)

          SearchFilesInZIP strFile

      End If

  Next

  Range("e1").Resize(UBound(arrFiles), 1) = Application.WorksheetFunction.Transpose(arrFiles)

End Sub

Sub SearchFilesInZIP(strFile As String)

  Dim oApp As Shell32.Shell

  Set oApp = New Shell32.Shell

  Set oFolder = oApp.Namespace(strFile).Items

  For Each fileNameInZip In oFolder

      If fileNameInZip.IsFolder <>True Then

          n = n + 1

          ReDim Preserve arrFiles(1 To n + 100)

          arrFiles(n) = fileNameInZip.Size &"" &fileNameInZip

      Else

          strFile = fileNameInZip.Path

          SearchFilesInZIP strFile

      End If

  Next

End Sub

---