Sub Sample3()
Dim f As Object, cnt As Long
cnt = 1
'A列に作成日時
Cells(1, 1) = "作成日時"
'B列にファイル名称
Cells(1, 2) = "ファイル名"
'C列にファイルサイズ
Cells(1, 3) = "ファイルサイズ"
Cells(1, 4) = "保存場所"
With CreateObject("Scripting.FileSystemObject")
For Each f In .GetFolder("C:\Users\Desktop\***").Files
'2行目以降に、フォルダ内のファイルの取得結果を記載する
cnt = cnt + 1
Cells(cnt, 1) = f.DateCreated
Cells(cnt, 2) = f.Name
Cells(cnt, 3) = f.Size
Cells(cnt, 4) = f.Path
Next f
End With
End Sub