Const NETPATH = "\\esmain\news$\XP"
Const DBNAME = "sbyt2004.ade"

Dim strDbName
Dim WshShell, FSO
Dim strTempPath

strDbName = DBNAME



Set WshShell = WScript.CreateObject("WScript.Shell")
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

strTempPath = WshShell.ExpandEnvironmentStrings("C:\base")

Dim fLocDb, fNetDb


If FSO.FileExists(strTempPath & "\" & strDbName)=false then
	WshShell.Popup strTempPath & "\" & strDbName,  2 
	WshShell.Popup NETPATH & "\" & strDbName,  2 
	WshShell.Popup "Запрос на обновление версии, ожидайте...",  2 
	FSO.CopyFile NETPATH & "\" & strDbName,  strTempPath & "\",  true
End if

Set fLocDb=FSO.GetFile(strTempPath & "\" & strDbName)
Set fNetDb=FSO.GetFile(NETPATH & "\" & strDbName)

If fNetDb.DateCreated  > fLocDb.DateCreated then
	fLocDb.Delete True
	WshShell.Popup "Запрос на обновление версии, ожидайте...",  2 
	FSO.CopyFile NETPATH & "\" & strDbName,  strTempPath & "\",  true

	DesktopPath = WSHShell.SpecialFolders("Desktop")
	Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & _
	"\Сбыт.lnk")
	MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings ("C:\base\Сбыт.vbs")
	MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings ("C:\base\")
	MyShortcut.Save

	Set AccApp = CreateObject("Access.Application")
	AccApp.OpenCurrentDatabase (strTempPath & "\" & strDbName)
	AccApp.Visible = True
	AccApp.DoCmd.RunCommand  10 

Else   
  	DesktopPath = WSHShell.SpecialFolders("Desktop")
	Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & _
	"\Сбыт.lnk")
	MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings ("C:\base\Сбыт.vbs")
	MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings ("C:\base\")
	MyShortcut.Save

	Set AccApp = CreateObject("Access.Application")
	AccApp.OpenCurrentDatabase (strTempPath & "\" & strDbName)
	AccApp.Visible = True
	AccApp.DoCmd.RunCommand  10  
End if