Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Function Update( source, target )
Dim f1,f2,d1,d2,c1,c2
If fs.FileExists( source ) then
set f1 = fs.GetFile( source )
d1 = f1.DateLastModified
c1 = Year(d1) * 10000 + Month(d1) * 100 + Day(d1)
If fs.FileExists( target ) then
set f2 = fs.GetFile( target )
d2 = f2.DateLastModified
c2 = Year(d2) * 10000 + Month(d2) * 100 + Day(d2)
Else
c2 = 0
End If
If c1 > c2 then
' overwrite local copy with the network version
f1.Copy target,True
End If
End If
End Function
Dim fs
set fs = WScript.CreateObject("Scripting.FileSystemObject")
s = "\\servername\servershare\mastermdbname"
t = "C:\mdbname"
Update s, t