title: Synchronize DateLastModified not reading correctly MS Access VBA
body: <p>When comparing two MS Access databases, the fso.DateLastModified property is not returning the information I expect.  </p>
  
  <p>I have a database called "Crosswalk Engine."  When I make changes to the one on "SharedHome", I expect the "LocalWorkingPath" to get the changes, but it already shows that the files are the same, so it never gets the update.  I have confirmed in a message box that LocalWorkingPath and SharedHome are different as you can see in the code.  Yet, DateLastModified always returns that they are identical.  Obviously, I set something incorrectly, but I can't find it:</p>
  
  <pre><code>Public Sub SyncFundingAndCrosswalk()
  
  
      Dim fso As Object
  
  
      Dim CWLocal As Object
      Dim CWServer As Object 
      Dim strCW As String
  
  
      strCW = "Crosswalk_Engine.accdb"
  
      Dim strSQL As String
  
      Set fso = CreateObject("Scripting.FileSystemObject")
  
      If fso.FileExists(LocalWorkingPath) Then
          'Do nothing if the LocalWorkingPath exists
      Else
          ensurePath (LocalWorkingPath)
  
          Call UpdateStatusScreen("Getting crosswalk")
          Call copyDB(SharedHome, strCW, LocalWorkingPath)
  
      End If
  
      Set CWServer = fso.getfile(SharedHome &amp; "\" &amp; strCW)
      Set CWLocal = fso.getfile(LocalWorkingPath &amp; "\" &amp; strCW)
  
  
          MsgBox "Crosswalk on server: " &amp; CWServer.DateLastModified &amp; vbCr &amp; "Path: " &amp; SharedHome &amp; "\" &amp; strCW &amp; _
                "Crosswalk on Local: " &amp; CWLocal.DateLastModified &amp; " Path: " &amp; LocalWorkingPath &amp; "\" &amp; strCW
  
          If CWServer.DateLastModified &gt; CWLocal.DateLastModified Then
           Call PopUpMsg("Getting changes to crosswalk...", "Crosswalk changed")
           Call copyDB(SharedHome, strCW, LocalWorkingPath)
              MsgBox "Crosswalk files are now current"
  
          Else
              MsgBox "Crosswalk files remain current.", vbInformation
  
          End If
  
  
  End Sub
  </code></pre>