投稿日 | : 2002/11/28(Thu) 10:10 |
投稿者 | : takk |
Eメール | : takk_neo@hotmail.com |
URL | : |
タイトル | : Re: ファイルのタイムスタンプについて |
FileSystemObjectを使えば簡単に取得できますよ。
'プロジェクトの参照設定でMicrosoft Scripting Runtimeをチェックしてください。
'もしくはCreateObjectで作成。
Private Sub Command1_Click()
Dim fSO As FileSystemObject
Dim fFile As File
Set fSO = New FileSystemObject
Set fFile = fSO.GetFile(ファイルのパス)
Debug.Print "作成日時:" & fFile.DateCreated
Debug.Print "更新日時:" & fFile.DateLastModified
Set fFile = Nothing
Set fSO = Nothing
End Sub