excelにフォルダの中身情報を一覧で表示させたい

質問

こんにちは。
excel関数で利用したいので、
フォルダの中にあるファイル名をエクセルのセルにわけて表示させるマクロを紹介していただけませんか？
１年くらい前に、こちらでどなたかがお勧めされていたexcelVBAサンプルをダウンロードして利用していましたが、会社を転職して、前会社から持ち出せませんでした。フリーソフトだと、会社のセキュリティー上ＤＬできないので、お勧めがありましたら、どうぞお教え下さい。
ファイル情報として更新日や容量も抽出できるものがexcelで欲しいのです。
どうぞ宜しくお願いいたします。

回答No.1

pkh4989

こんにちは。
参考にしてください。

Sub test()
　　Dim wDir　　　　　　As String
　　Dim wR　　　　　　　As Long
　　Dim wFile　　　　　 As String
　　Dim wDate　　　　　 As String
　　Dim wSize　　　　　 As String
　　'
　　wR = 0
　　wDir = "C:\TEST"
　　wFile = Dir(wDir & "\*.*")　　　　　'←全てのファイル
　　If wFile <> "" Then
　　　　Do Until ExitFlg = True
　　　　　　wDate = Format(FileDateTime(wDir & "\" & wFile), "yyyy/mm/dd hh:mm:ss")
　　　　　　wSize = FileLen(wDir & "\" & wFile)
　　　　　　wR = wR + 1
　　　　　　'ファイル名称
　　　　　　Cells(wR, 1) = wFile
　　　　　　'ファイルサイズ
　　　　　　Cells(wR, 2) = Format(wSize, "###,### B")
　　　　　　'ファイル更新日付
　　　　　　Cells(wR, 3) = Format(wDate, "yyyy/mm/dd hh:mm")
　　　　　　'
　　　　　　wFile = Dir　　　　　　　　　'次のファイルを検索
　　　　　　If wFile = "" Then
　　　　　　　　ExitFlg = True
　　　　　　End If
　　　　Loop
　　End If
End Sub

お礼

pkh4989様
お教えいただきありがとうございます！！！
とてもいい感じです！
あと、フォルダの中身にあるフォルダ名を同じように同じシートに反映させて、ツリーにするのは難しいですか？今、Ｂ列Ｃ列にある更新情報をファイル名の続きに記載して一セルとし、あとで関数ではずしてもいいので・・・。
できたら、そのフォルダの中身までツリーのようにセル毎に反映できるようにしたいのですが、何かよいサンプルがあればお教え下さい。

あれから、かなり検索したのですが、以前のサンプルがみつけられません・・・・；；