- 日時： 2007/07/16 09:45
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[ファイル][他のアプリ関係][] *
* キーワード：デジカメ,プロパティ,概要,詳細設定,, *
***********************************************************************************
元質問：写真の撮影日の取得 - ちり 2003/10/29-09:47 No.6422
XPのエクスプローラの詳細表示で、デジカメの撮影日が表示されるのですが、あの日時は取得できないのでしょうか？
--------------------------------------------------------------------------
Re^3: 写真の撮影日の取得 - 花ちゃん 2003/10/29-19:17 No.6439
--------------------------------------------------------------------------
撮影日だけならnobuさんが投稿されていたのですがファイルの更新日時と同じようです。
とりあえず下記を試して見て下さい。
Option Explicit
Private Sub Command1_Click()
Dim ObjShell As Object
Dim ObjFolder As Object
Dim myText As String
Dim i As Long
Dim FolderName As Variant '※ 必ず Variant型を指定して下さい
FolderName = "c:\"
Set ObjShell = CreateObject("Shell.Application")
'ファイルが存在するフォルダを指定(※Variant型を指定して下さい）
Set ObjFolder = ObjShell.NameSpace(FolderName)
For i = 0 To 34
myText = myText & i & " " & ObjFolder.GetDetailsOf(, i) & "=" _
& ObjFolder.GetDetailsOf(ObjFolder.ParseName("test.jpg"), i) & vbCrLf
Next
MsgBox myText
End Sub
※ 通常のようにString型の変数を使ったらだめだったので変数で使用できないと
思っていたら No.6443の投稿で教えて頂いたの修正しておきます。
-----------------------------------------------------------------------
上記の実行結果の画像を添付しておきます。
どのような項目が取得できるかが解るかと思います。
（画像をクリックすると元のサイズでご覧頂けます。）
|
画像ファイルの写真の撮影日等の情報を取得(VB6.0)