Get size of all files in a directory?

[TheWennerWoman]

I have the following which lists all files in a directory, it works perfectly

Option Explicit
Sub GetFileNames()
Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$
InitialFoldr$ = "D:\" '<<< Startup folder to begin searching from
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a folder to list Files from"
.InitialFileName = InitialFoldr$
.Show
If .SelectedItems.Count <> 0 Then
xDirect$ = .SelectedItems(1) & "\"
xFname$ = Dir(xDirect$, 7)
Do While xFname$ <> ""
ActiveCell.Offset(xRow) = xFname$
xRow = xRow + 1
xFname$ = Dir
Loop
End If
End With
End Sub

How can I modify this to bring in the filesize in the next column?

Thanks in advance.

 

[JEC]

Try this

Sub jec()
 With Application.FileDialog(msoFileDialogFolderPicker)
     InitialFoldr = "D:\"
    .Title = "Please select a folder to list Files from"
    .InitialFileName = InitialFoldr
     If .Show Then
    
       c00 = .SelectedItems(1)
       Set Folder = CreateObject("Scripting.FileSystemObject").getfolder(c00)
       ReDim ar(Folder.Files.Count, 2)
     
       For Each it In Folder.Files
          ar(x, 0) = it.Name
          ar(x, 1) = Int(it.Size / 1000)
          ar(x, 2) = "KB"
          x = x + 1
       Next
      Sheets(1).Cells(1, 1).Resize(x, 3) = ar
    End If
 End With
End Sub

 

[TheWennerWoman]

Thanks a lot, had to initialise the variables via a Dim statement but it works perfectly!

 

[JEC]

Nice! You’re welcome!