[ExcelVBA] FileDateTime関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧

■構文
FileDateTime(pathname)

■説明
指定したファイルの更新日時を返します。
第一引数：ファイルパス

■サンプルコード

Option Explicit

Sub SampleCode()
    '作成日時: 2011/12/01 0:00 更新日時:2011/12/4 15:00のファイルで試してみる
    Debug.Print FileDateTime("C:\Sample.txt") '2011/12/04 15:00:00
    
    
    '【参考】FileSystemObjectを使う場合
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Debug.Print FSO.GetFile("C:\Sample.txt").DateLastModified
    Set FSO = Nothing
End Sub

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧