ファイルのプロパティ抽出マクロ

著作権侵害案件で，写真の一覧表を作ることに。

もちろん，撮影日などの情報も付記して一覧にするわけだが，
デジカメ写真は，ファイル自体が撮影日，絞り，シャッター速度，露出補正，カメラ機種，といった情報を持っている。
そのため，これらのプロパティを抽出するだけで，
さっくりと一覧ができてしまうわけだ。

今回は，エクセルのＶＢＡでプロパティ抽出マクロを作り，
エクセルの表に出力してみた。

ただ，残念なことに自分で書いたソースではありません。
ネットで拾いました。
ありがとうございます＞作った人

（2009/09/16追記）

かなり需要があるみたいなので，少々シンプルにしたソースを書いておきます。

sub プロパティ出力()
　'調べたいフォルダ
　sdir = "d:\folder" '適宜変えてください
　Set folder = CreateObject("Shell.Application").Namespace((sdir))

　'プロパティの名前をとりあえず300個くらい出力
　For i = 0 To 300
　　ActiveCell.Offset(i, 0).Value = folder.GetDetailsOf("", i)
　Next

　'各プロパティの値を出力
　file_name = Dir(sdir & "\*.*")
　Do While file_name <> ""
　　Set itm = folder.items.Item(file_name)
　　j = j + 1
　　For i = 0 To 300
　　　ActiveCell.Offset(i, j).Value = folder.GetDetailsOf(itm, i)
　　Next
　　file_name = Dir
　Loop
end sub