エクセルでサイズ名の一覧を出したい

質問

現在、下記のコードでフォルダ内のデータベースを作成しています。
これに、『ファイルのサイズ』を加えたいのですが、何処に何を入れれば良いかがよくわかりません。
どなたか回答出来る方がいらっしゃれば、宜しくお願いします。

《現在使用しているコード》

Sub MakeFileList()

Target = InputBox("ディレクトリ名を入力", "ディレクトリの指定", "C:\Windows")

Set FS = CreateObject("Scripting.FileSystemObject")
Set Fol = FS.GetFolder(Target)
Set Fil = Fol.Files
ThisWorkbook.Sheets("一覧").UsedRange.Delete

'見出しを付ける
ThisWorkbook.Sheets(1).Range("B2") = "ファイル名"
ThisWorkbook.Sheets(1).Range("C2") = "ファイル種別"
ThisWorkbook.Sheets(1).Range("D2") = "最終更新日"
ThisWorkbook.Sheets(1).Range("E2") = "説明"
ThisWorkbook.Sheets(1).Range("B2:E2").Interior.Color = RGB(0, 0, 0)
ThisWorkbook.Sheets(1).Range("B2:E2").Font.Color = RGB(255, 255, 255)
ThisWorkbook.Sheets(1).Range("B2:Es2").HorizontalAlignment = xlCenter

i = 3
For Each Fx In Fil
'ファイル名
sFile = Fx.Name
'ファイル名の書き出し
ThisWorkbook.Sheets(1).Cells(i, 2) = sFile
'ファイル種別
sFType = Fx.Type
'最終更新日時の書き出し
ThisWorkbook.Sheets(1).Cells(i, 3) = sFType
'最終更新日
sLMod = Fx.DateLastModified

ThisWorkbook.Sheets(1).Cells(i, 4) = sLMod
i = i + 1
Next
End Sub

回答No.2

mu2011 · ベストアンサー

一例です。
名前の直後に挿入してみました。（若干、ソースを変更しました）

Sub MakeFileList()
Target = InputBox("ディレクトリ名を入力", "ディレクトリの指定", "C:\Windows")
Set FS = CreateObject("Scripting.FileSystemObject")
Set Fil = FS.GetFolder(Target).Files

'見出しを付ける
With ThisWorkbook.Sheets(1)
.Range("B2") = "名前"
.Range("C2") = "サイズ"
.Range("D2") = "種別"
.Range("E2") = "最終更新日"
.Range("F2") = "説明"
.Range("B2:F2").Interior.Color = RGB(0, 0, 0)
.Range("B2:F2").Font.Color = RGB(255, 255, 255)
.Range("B2:F2").HorizontalAlignment = xlCenter

i = 3
For Each Fx In Fil
.Cells(i, 2) = Fx.Name '名前
.Cells(i, 3).NumberFormatLocal = "#,##0"" KB"""
.Cells(i, 3) = Fx.Size 'サイズ
.Cells(i, 4) = Fx.Type '種別
.Cells(i, 5) = Fx.DateLastModified '最終更新日
i = i + 1
Next
End With
End Sub

お礼

お忙しい中ありがとうございます。
無事に解決出来ました。

回答No.1

MackyNo1

ファイルのサイズはSizeのプロパティで取得できます。

以下のページを参考にしてご自分でコードを作成してください。
http://officetanaka.net/excel/vba/filesystemobject/file.htm