Hello bodiewil,

I don't know why I used DateLastModified property. Just change that to DateLastAccessed.

The other problem was a typo. That should read....
       If IncludeSubfolders Then
         For Each SubFolder In SourceFolder.SubFolders
           ListFilesInAllFolders SubFolder.Path, True
         Next SubFolder
       End If