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行目以降に、フォルダ内のファイルの取得結果を記載…