Copy windows file size from folders only

Question

I would like to write the file size of each file in a particular folder to Excel. How can I do this?

Answer 1

You can use the FileSystemObject object to work with files, folders and textstreams:

''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 ，但您只需要选择所有文件，右键单击，选择“属性”，然后复制“大小”即可。