Dateien von Festplatte auslesen und mehr ..

die Tage wurde ein Makro ins Forum gestellt, das Dateien von der Festplatte ausliest.

Sub DateienAuslesen
On Error Resume Next
i = 1
With Application.FileSearch
.NewSearch
.LookIn = "c:\"
.Filename = "*.*"
.SearchSubFolders = True
If .Execute() > 0 Then
For Each varFile In .FoundFiles
Cells(i, 1).Value = varFile
i = i + 1
Next varFile
End If
End With
End Sub

Ich habe es bei mir angepasst und finde es sehr hilfreich Jetzt frage mich, ob es zusätzlich möglich wäre die Dateigrösse zB in Spalte B neben der Datei mit angeben zu lassen?

Geht so etwas oder ist das bereits komplizierter zu realisieren?

Gruss, Martin