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

解決済

質問者：today2001_99
質問日時：2005/03/02 18:45
回答数：1件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： O_cyan
回答日時：2005/03/03 13:45

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