カメラの撮影日時を秒まで取得 (ID:138160)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

PicDate = の右端の２５を変えたらどうなるかを２，３試したところ
色々な情報が出てくるようです。

そこで試しに下記のような事をして見ました。
その結果では３１にすると下記の様に秒まで出て来るようですが如何？
2007:03:17 09:45:59

Private Sub Command1_Click()

Dim WSHShell   As Object
    Dim WSHFolder  As Object
    Dim FolderName As Variant
    Dim PicDate As Variant
    Dim i As Long
    
    Open "c:\info.txt" For Output As #1
    FolderName = "C:\Canon"
    Set WSHShell = CreateObject("Shell.Application")
    'ファイルが存在するフォルダを指定(※Variant型を指定して下さい）
    Set WSHFolder = WSHShell.NameSpace(FolderName)
    
    'PicDate = WSHFolder.GetDetailsOf(WSHFolder.ParseName("IMG_2378.JPG"), 27) 'ピクセル
    'PicDate = WSHFolder.GetDetailsOf(WSHFolder.ParseName("IMG_2378.JPG"), 26) 'size
    'PicDate = WSHFolder.GetDetailsOf(WSHFolder.ParseName("IMG_2378.JPG"), 25) '写真の撮影日
    
    'MsgBox (PicDate)

For i = 0 To 40
        PicDate = WSHFolder.GetDetailsOf(WSHFolder.ParseName("IMG_2378.JPG"), i) '
        Print #1, CStr(i) & " : " & PicDate
    Next i

Close #1
    
    Label1.Caption = "終  了"
    
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る