掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
カメラの撮影日時を秒まで取得 (ID:138159)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
VB6＋XP EXIF情報の取得は規格の不統一などでかなり面倒のようなので下記のようなもので撮影日時を取得しようとしました。これで撮影日時は取れるのですが時間が分までしか出ません。秒まで欲しいのですが方法があったら教えてください。 Private Sub Command1_Click() Dim WSHShell As Object Dim WSHFolder As Object Dim FolderName As Variant Dim PicDate As Variant FolderName = "d:\画像\2007_8" Set WSHShell = CreateObject("Shell.Application") 'ファイルが存在するフォルダを指定(※Variant型を指定して下さい） Set WSHFolder = WSHShell.NameSpace(FolderName) PicDate = WSHFolder.GetDetailsOf(WSHFolder.ParseName("04300002.jpg"), 25) MsgBox(PicDate) End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.