Copy new network Access front end to C:\ 1

[Quehay]

I have user groups that have a front end that lives in a dedicated network folder. Ideally they should download the front end to PC to reduce network traffic. There are inevitable changes to every project, however, due to sponsor requests.

Question: I'd like to create a script that would live on user PC and check to see if new version is in \\ntwk\dbfolder, then copy over existing PC version if so.

TIA

 

[FengShui1998]

Quehay,

You need to first check the Last modified dates of both files, then compare the date values. It should look something like this.

Fengshui1998


Set fso = CreateObject("Scripting.FileSystemObject&quot
src = "\\ntwk\dbfolder\filename"
dest = "C:\dbfolder\filename"

Set srcatt = fso.GetFile(src)
Set destatt = fso.GetFile(dest)
if datevalue(srcatt.DateLastModified) > datevalue(destatt.DateLastModified) then
msgbox "Source is more recent."
' start copying here
else
msgbox "Source is the same or older."
' Leave it alone
end if

 

[Quehay]

THANK YOU FENG SHUI!!

I figured it would involve comparing the date modified, but I didn't know any of the stuff you offer here. I'll give this a try.