仅从文件夹复制 Windows 文件大小

Question

我想将特定文件夹中每个文件的文件大小写入Excel。我该怎么做？

Answer 1

您可以使用 FileSystemObject 对象来处理文件、文件夹和文本流：

''Reference: Windows Script Host Object Model

Dim fs As New FileSystemObject
Dim fldr As Folder
Dim f As File
Dim i As Integer

Set fldr = fs.GetFolder("C:\docs\")

With ActiveWorkbook.Sheets("Sheet3")
    i = 1
    For Each f In fldr.Files
        .Cells(i, 1) = f.Name
        .Cells(i, 2) = f.Size
        i = i + 1
    Next
End With

Answer 2

由于您没有提到任何有关编程的内容，我认为这属于 SuperUser，但您只需选择所有文件，右键单击，选择属性，然后复制大小。