FSOのDateCreatedプロパティで撮影日時

質問

FSOのDateCreatedプロパティで撮影日時の取得はできますか？
フォルダの中のファイルの撮影日時の一覧を取得したいのですが

Sub Sample()
Dim MyFileName As String
Dim MyFolderName As String

MyFolderName = "C:\Users\1\Documents\【写真】"

MyFileName = Dir(MyFolderName & "\*.*")
Do While MyFileName <> ""
Debug.Print MyFileName
Debug.Print CreateObject("scripting.filesystemobject").GetFile(MyFolderName & "\" & MyFileName).DateCreated
MyFileName = Dir()

Loop
End Sub

これで日付は取得できるのですが、この取得した日付は撮影日時を言ってるのでしょうか？
全て画像ファイルで、撮影日時を取得したいのですが正しいのかどうなのかわかりません。

回答No.1

noname#189141 · ベストアンサー

デジカメの撮影日時などの情報は、ファイルの中のExif情報に含まれています。
掲示されたソースはおそらく、ファイル作成日時を取得するものと思われます。
大抵のデジタルカメラでは、ファイル作成日時＝撮影日時ととらえる事も出来るかもしれませんが、このファイル作成日時は、PCへのコピーや編集などで失われる事があります。
(特に元のファイルを残しておいて、編集後に別ファイルに保存した時など)

Exif情報は、FSOでは扱えず、直接ファイルを開いて確認する必要があります。
以下のページに具体例がありましたので、ご参考まで。
http://blog.livedoor.jp/hamu1962/archives/50978551.html

Exifについては、以下を。
http://ja.wikipedia.org/wiki/Exchangeable_image_file_format

お礼

回答頂きありがとうございました。