[ExcelVBA] FileDateTime関数

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

■構文
FileDateTime(pathname)

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

■サンプルコード

view plainprint?

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

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] 関数一覧