特定ファイルの更新日時を表示させたい。

質問

あるセル式に「=FileDateTime("フルパス")」入力で更新日時を表示させようとしているのですが、上手く表示されません。なにか間違っているのでしょうか？

検索で「インストラクターのネタ帳」でファイル更新日時取得を見つけました。
これは、そのブックの更新日時をアクティブシートに表示させるマクロのようですが、
これを応用してシートに特定ファイルの更新日時をセル表示させるにはどうすればいいのでしょうか？

Function LastSaveTime()
Application.Volatile
LastSaveTime = ThisWorkbook.BuiltinDocumentProperties("Last save time").Value
End Function
どなたかアドバイス願います

回答No.1

mitarashi · ベストアンサー

BuiltinDocumentPropertiesを任意のファイルに使うのは無理ではないでしょうか。Workbook限定なら、ブックを開けば可能かもしれませんが。
下記は、セキュリティチェックに引っかかるので、ユーザー定義関数として実用的かどうか不明ですが、ご参考まで。
Function lastSaveTime(target As String) As Date
Dim FSO
'Application.Volatile
Set FSO = CreateObject("Scripting.FileSystemObject")
lastSaveTime = FSO.GetFile(target).DateLastModified
Set FSO = Nothing
End Function
詳細は下記をご覧下さい。
http://officetanaka.net/excel/vba/filesystemobject/file.htm

お礼

ありがとうございます
参考にしてみます！