on error resume next


LocalFile = "C:\base\"
LFile="C:\base\sbyt2004.ade"
SFile="\\esmain\news$\XP\sbyt2004.ade"
SetupFileOld = "C:\base\Сбыт.vbs"
SetupFileNew = "\\esmain\news$\XP\Сбыт.vbs"
set m_oDocumentProps=CreateObject("DSOFile.OleDocumentProperties")
set m_oDocumentProps1=CreateObject("DSOFile.OleDocumentProperties")

m_oDocumentProps.Open LFile, True, dsoOptionOpenReadOnlyIfNoWriteAccess
m_oDocumentProps1.Open SFile, True, dsoOptionOpenReadOnlyIfNoWriteAccess

if m_oDocumentProps.CustomProperties("Version")<m_oDocumentProps1.CustomProperties("Version") then

	set m_oDocumentProps = Nothing
	set m_oDocumentProps1 = Nothing

	Set fso = CreateObject("Scripting.FileSystemObject")
	fso.DeleteFile LFile, False
	fso.CopyFile SFile, LFile,  0 
	Set WSHShell = CreateObject("WScript.Shell")
	WSHShell.Popup "Новая версия программы скопирована.", 2 ,"Сбыт", 64 
rem  Я Р Л Ы К
	DesktopPath = WSHShell.SpecialFolders("Desktop")
	Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & _
	"\Сбыт.lnk")
	MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings (LocalFile+"Сбыт.vbs")
	MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings (LocalFile)
	MyShortcut.Save
end if
	set m_oDocumentProps = Nothing
	set m_oDocumentProps1 = Nothing

Set AccApp = CreateObject("Access.Application")
AccApp.OpenCurrentDatabase (LFile)
AccApp.Visible = True
AccApp.DoCmd.RunCommand  10