Other

This routine can be used to find the last modified date of any file, not just XLS files.

'' ***************************************************************************
'' Purpose  : Get a file's last modified date
'' Written  : 24-Mar-2003 by Andy Wiggins, Byg Software Limited
''
Sub LastModifiedDate()
Dim lObj_Fso
Dim lObj_File
    Set lObj_Fso = CreateObject("Scripting.FileSystemObject")
    Set lObj_File = lObj_Fso.GetFile("C:\PathHere\FileNameHere.xls")
    Debug.Print lObj_File.datelastmodified
End Sub

A slightly longer version:

'' ***************************************************************************
'' Purpose  : Get a file's date history
'' Written  : 24-Mar-2003 by Andy Wiggins, Byg Software Limited
''
Sub LastCreatedModifiedAccessedDates()
Dim lObj_Fso
Dim lObj_File
    Set lObj_Fso = CreateObject("Scripting.FileSystemObject")
    Set lObj_File = lObj_Fso.GetFile("K:\BYG\EXCEL\DEV\Functions.xls")
    With lObj_File
        Debug.Print .DateCreated
        Debug.Print .DateLastModified
        Debug.Print .DateLastAccessed
    End With
End Sub