掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
カメラの撮影日時を秒まで取得 (ID:138161)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Nov様、できました。本当にありがとうございました。 いろいろ試しましたが"31"が出ないファイルもありますので下記のようにして処理することにしました。ご親切、御礼申し上げます。 Private Sub Command1_Click() Dim WSHShell As Object Dim WSHFolder As Object Dim FolderName As Variant Dim PicDate As Variant Dim PicDate25 As Variant Dim PicDate31 As Variant FolderName = "d:\画像\2007_8" Set WSHShell = CreateObject("Shell.Application") 'ファイルが存在するフォルダを指定(※Variant型を指定して下さい） Set WSHFolder = WSHShell.NameSpace(FolderName) PicDate25 = WSHFolder.GetDetailsOf(WSHFolder.ParseName("04300002.jpg"), 25) PicDate31 = WSHFolder.GetDetailsOf(WSHFolder.ParseName("04300002.jpg"), 31) if PicDate31><"" then PicDate=PicDate31 Else PicDate=Format(PicDate25, "yyyy/mm/dd hh:mm:ss") end if MsgBox(PicDate) End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.