Vofka @ 19.07.13, 15:55
,
Добавлю от себя еще проще.
Процедура Кнопка1Нажатие(Элемент)
файл = Новый ТекстовыйДокумент;
scr = КаталогВременныхФайлов()+"clear1c.ps1";
файл.УстановитьТекст("echo 'Подготовка к запуску, дождитесь окончания работы этого скрипта.'
|timeout.exe /T 4 /NOBREAK
|echo 'Не запускайте 1С.'
|Get-childitem -Path $ENV:Userprofile\appdata\Roaming\1c\1cv8*\* -Exclude *.pfl,def.usr,tmplts | Remove-item -recurse
|Get-childitem -Path $ENV:Userprofile\appdata\Local\1c\1cv8*\* -Exclude *.pfl,tmplts | Remove-item -recurse
|echo 'КОНЕЦ!'
|echo 'Если не пробегало красное, значит все нормально. Можно запускать 1С.'
|timeout.exe /T 5 /NOBREAK");
файл.Записать(scr,КодировкаТекста.Системная);
Сообщить(scr);
ЗапуститьПриложение("powershell -executionpolicy unrestricted -command "+scr,,Ложь);
ПрекратитьРаботуСистемы(Ложь, "/ClearCache");
КонецПроцедуры