Glad the example worked for you. And I had actually mentioned the extended file properties as perhaps a simple way of getting the last access date/time.

 Code:
$lastaccess = GetExtFileProperties("C:\path\to\mdb\file.mdb", "Date Accessed")

function GetExtFileProperties($FQFN, $attribute)
  dim $objShell, $objFolder,$i,$found
  if exist($FQFN)
    $objShell=CreateObject("Shell.Application")
    $objFolder=$objShell.Namespace(left($FQFN,instrrev($FQFN,"\")))
    if $objFolder
      if vartypename($attribute)="string"
        While $i<267 and $found=0
          if $attribute=$objFolder.GetDetailsOf($objFolder.Items, $i)
            $attribute=$i
            $found=1
          endif
          $i=$i+1
        loop
      endif 
      if vartypename($attribute)="long" ; Number 
        $GetExtFileProperties=$objFolder.GetDetailsOf($objFolder.ParseName(right($FQFN,len($FQFN)-instrrev($FQFN,"\"))),$attribute)
      else
        exit -1 
      endif
    else
      exit @error
    endif
  else
    exit 2
  endif
endfunction