投稿日	： 2003/10/29(Wed) 19:17
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^3: 写真の撮影日の取得

撮影日だけならnobuさんが投稿されていたのですがファイルの更新日時と同じようです。

とりあえず下記を試して見て下さい。
Private Sub Command1_Click()
    Dim ObjShell   As Object
    Dim ObjFolder  As Object
    Dim myText     As String
    Dim i          As Long
    Dim FolderName As 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の投稿で教えて頂いたのを修正しておきます。

★ - 写真の撮影日の所得 - ちり 10/29-09:47No.6422
• Re: 写真の撮影日の取得 - 花ちゃん 10/29-10:38 No.6424
  • Re^2: 写真の撮影日の取得 - ちり 10/29-18:28 No.6437
    • Re^3: 写真の撮影日の取得 - 花ちゃん 10/29-19:17 No.6439
      • Re^4: 写真の撮影日の取得 - 魔界の仮面弁士 10/29-23:40 No.6443
        • Re^5: 写真の撮影日の取得 - 花ちゃん 10/30-00:32 No.6444
          • Re^6: 写真の撮影日の取得 - ちり 10/30-08:50 No.6452