View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Barb Reinhardt Barb Reinhardt is offline
external usenet poster
 
Posts: 3,355
Default Evaluate File for Last Updated Date

This should get you started

Option Explicit

Sub Test()
Dim FSO As Object
Dim RootFolder As Object
Dim myFolder As String
Dim File As Object

'define myFolder here

myFolder = "C:" 'Enter what you want
'Create FileSystemObject object
Set FSO = CreateObject("Scripting.FileSystemObject")

'Test if the folder exist and set RootFolder
If FSO.FolderExists(myFolder) = False Then
MsgBox myFolder & " doesn't exist"
Exit Sub
End If
Set RootFolder = FSO.GetFolder(myFolder)

For Each File In RootFolder.Files
Debug.Print File.Name, File.datelastmodified, File.datelastaccessed

Next File

Set FSO = Nothing

End Sub

IIRC, the BuiltInDocumentProperties can only be accessed once the file is
opened.

--
HTH,

Barb Reinhardt



"jb_tenor1" wrote:

I want to have my macro code determine the date a file was last updated and
then from there, decide whether or not to open it. What I don't know is how
to access the file's property that returns that date it was updated. If I
could just use an "If" statement to say something like this, in principle:

If Filename.DateUpdated = Today() - 1 Then
Workbooks.Open Filename
End If

The goal is to only open files that have been updated within the last two
days. Is this possible?