DateModifiedLast

[gj0519]

I have ~ 300 records where I have the UNC path to files that relate to my records. What I am trying is to follow the path and retrieve and insert the datemodifiedlast into the same table as my records. Not sure on where to start. I know how to write the code to select my field, just unsure on getting it to find and insert the date into my table. Using Acess 2003
Thanks,

GJ

 

[Remou]

Use the FileSystemObject.

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(.FoundFiles(lngFileIndex))
dteDateCreated = f.DateCreated
dteDateLastAccessed = f.DateLastAccessed
dteDateLastModified = f.DateLastModified

It is likely that you will have to modify the format of the dates before you insert them in your table.

 

[PHV]

In a standard code module create the following function.

Public Function getDateLastModified(varPathName) As Date
Dim objFSO As Object, objFile As Object
If Trim(varPathName & "") = "" Then Exit Function
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(varPathName) Then
  Set objFile = objFSO.GetFile(varPathName)
  getDateLastModified = objFile.DateLastModified
  Set objFile = Nothing
End If
Set objFSO = Nothing
End Function

And now the update query (SQL code)

UPDATE yourTable SET datemodifiedlast = getDateLastModified([your UNC field])

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[gj0519]

Thanks for the replies.
GJ