AccessのOLEオブジェクトのファイル名/更新日時をフォームに表示

質問

よろしくお願い致します。
AccessのOLEオブジェクト（画像ファイル等）を、アイコンでフォームに表示させているのですが、同時にファイル名とそのファイルの作成/更新日時を表示させたく思うのですが、可能でしょうか？
基本的な質問で申し訳ありません。
不足している情報がありましたら御質問ください。
よろしくお願い致します。

回答No.1

O_cyan · ベストアンサー

Label1・2・3をフォームに用意してLabelに表示させるようにするには
参照設定でMicrosoftScriptingRuntime の参照にチェックが必要。
下記でできるはずなのですが

Dim Ocn　　 As New FileSystemObject
Dim OcnFile As File
　　　　　　Set OcnFile = Ocn.GetFile(フルパス\ファイル名.拡張子")
　　　　　　Label1.Caption = "ファイル名：" &OcnFile.Name
　　　　　　Label2.Caption = "作成日時：" & OcnFile.DateCreated
　　　　　　Label3.Caption = "最終更新日時：" & OcnFile.DateLastModified
　　Set OcnFile = Nothing