Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для El Sanchez

Ветеран


Contributor


Сообщения: 1274
Благодарности: 1030

Профиль | Отправить PM | Цитировать


Цитата Iska:
Возможно. »
i-Lex, теория доказана, теперь практика:
Код: Выделить весь код
@Echo Off
SetLocal

Set ProgrammName=MyProgramName\program.exe

If Not Exist "%ProgramFiles%\%ProgrammName%" If Not Exist "%APPDATA%\%ProgrammName%" Exit /B 1

If Exist "%ProgramFiles%\%ProgrammName%" If Not Exist "%APPDATA%\%ProgrammName%" (
	:: Тут копируем файлы в %ProgramFiles% 
)
If Not Exist "%ProgramFiles%\%ProgrammName%" If Exist "%APPDATA%\%ProgrammName%" (
	:: Тут копируем файлы в %APPDATA%
)
If Exist "%ProgramFiles%\%ProgrammName%" If Exist "%APPDATA%\%ProgrammName%" (
	Echo:Wscript.Echo CreateObject^("Scripting.FileSystemObject"^).GetFileVersion^(WScript.Arguments^(0^)^)>"%~n0_filever.vbs"
	For /F "Tokens=*" %%A In ('cscript //nologo "%~n0_filever.vbs" "%ProgramFiles%\%ProgrammName%"') Do (
		For /F "Tokens=*" %%B In ('cscript //nologo "%~n0_filever.vbs" "%APPDATA%\%ProgrammName%"') Do (
			:: Версия файла в %ProgramFiles% новее
			If "%%A" GTR "%%B" (
				:: Копируем в %ProgramFiles%
			)
			:: Версия файла в %APPDATA% новее
			If "%%B" GTR "%%A" (
				:: Копируем в %APPDATA%
			)
		)
	)
	Del /F /Q "%~n0_filever.vbs" 2>nul 
)
Это сообщение посчитали полезным следующие участники:

Отправлено: 11:02, 07-09-2012 | #3