Очистка кэша пользователя

На основе этой обработки.

Текст модуля

Процедура КнопкаВыполнитьНажатие(Кнопка)
	
	WSH = Новый COMobject("wscript.shell"); 
	ПрофильПользователя = WSH.ExpandEnvironmentStrings("%APPDATA%");//Возвращает используемое по умолчанию размещение данных приложений
	
	Каталог1CEStart = ПрофильПользователя + "\1C\1CEStart\";    
	КаталогСуществует = КаталогИлиФайлСуществует(Каталог1CEStart);    
	
	Если КаталогСуществует  = Ложь Тогда
		Сообщить("Не найден каталог инфрормационной базы. Очистка кэша невозможна.");
		Возврат;
	КонецЕсли;
	
	// Заменим GUID в списке баз на новый
	Файлibases = Каталог1CEStart + "ibases.v8i"; // путь к списку информационных баз пользователя
	Если КаталогИлиФайлСуществует(Файлibases) Тогда
		
		// найдём GUID текущей базы
		СписокБаз = Новый ТекстовыйДокумент;
		СписокБаз.Прочитать(Файлibases);
		
		ТекстФайла = СписокБаз.ПолучитьТекст();
		
		Позиция = Найти(ТекстФайла, СтрокаСоединенияИнформационнойБазы());
		Если Позиция = 0 Тогда
			Сообщить("Информационная база не найдена в ibases.v8i. Очистка кэша невозможна.");
			Возврат;
		Иначе    
			ТекстФайлаCut = Прав(ТекстФайла, СтрДлина(ТекстФайла) - Позиция + 1);
			Позиция = Найти(ТекстФайлаCut, "ID=");
			GUID = Сред(ТекстФайлаCut, Позиция + 3, 36);
			
			// Если надо обновить GUID
			Если ОбновитьGUID Тогда
				НовыйGUID = Новый УникальныйИдентификатор;
				
				// Если такой идентификатор уже есть - получим новый и снова проверим
				Пока Найти(ТекстФайла, НовыйGUID) > 0 Цикл
					НовыйGUID = Новый УникальныйИдентификатор;
				КонецЦикла;    
				
				Если Вопрос("Будет обновлён список баз.
					|Актуально только для баз из пользовательского списка баз!
					|Базы из общего списка баз не меняются!
					|Текущий GUID " + GUID + ".
					|Новый GUID " + НовыйGUID + ".
					|Продолжить?", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Нет Тогда
					Возврат;
				КонецЕсли;    
				
				//Присвоим базе новый идентификатор
				ТекстФайлаНовый = СтрЗаменить(ТекстФайла, GUID, НовыйGUID);
				СписокБаз.УстановитьТекст(ТекстФайлаНовый);
				СписокБаз.Записать(Файлibases);
			КонецЕсли;
		КонецЕсли;
		
	Иначе
		Сообщить("Файл " + Файлibases + " не найден. Очистка кэша невозможна.");
		Возврат;
	КонецЕсли;
	
	// Создадим и запустим bat-файл, очищающий папку со старым кэшем
	// При этом, если обновляем GUID, то очистку делаем вне зависимости от ответа, чтобы не оставались ненужные папки
	Если Не ОбновитьGUID Тогда
		Если Вопрос("Будет очищена папка " + GUID + ". 
			|Программа будет завершена. Продолжить?", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Нет Тогда
			Возврат;
		КонецЕсли;    
	КонецЕсли;    
	
	//КаталогGUID = ПрофильПользователя + "\1C\1Cv82\" + GUID + "\";
	КаталогGUID = ПрофильПользователя + "\1C\1Cv82\" + GUID;
	Если КаталогИлиФайлСуществует(КаталогGUID) Тогда
		
		ПутьКФайлуLck = КаталогGUID + "\1Cv8.lck";
		
		ТекстBatФайла = "@echo off
		|cls
		|cd \
		|Echo Ожидание снятия блокировки с файла 1Cv8.lck...
		|rem Файл работает следующим образом.
		|rem Сначала ждем 5х8=40 с., пока удалится файл 1Cv8.lck (удаляется при закрытии 1С), затем удаляем папку с кэшем.
		|rem Если файл не удаляется - завершаем работу программы.
		|set /a count=1
		|:flag
		|rem Если count > 8
		|if %count% gtr 8 goto end
		|if Not exist """ + ПутьКФайлуLck + """ goto go
		|ping -n 5 127.0.0.1 > NUL
		|call set /a count+=1
		|goto flag
		|:go
		//|rem Удаляем только файлы
		//|Del /F /Q """ + КаталогGUID + "\*.*""
		//|rem Удаляем только каталоги внутри
		//|for /d %%i in ("""+ КаталогGUID + "\*"") do rmDir /s /q ""%%i""
		|rem Удаляем основной каталог и всё, что в нём
		|Echo Удаление папки " + КаталогGUID + "...
		|rmDir """ + КаталогGUID + """ + /s /q
		|:end
		// Если надо после очистки запустить 1С, то убрать комментарий в следующих 2 строках и 2-х модулей в конце модуля, но при этом будет появлятся папка 00000000-0000-0000-0000-000000000000
		//|Echo Запускаем 1С
		//|start """" " + ПолучитьСтрокуЗапуска1С() + "
		|rem Удаляем этот файл
		|del %0
		|";
		
		БатФайл = Новый ТекстовыйДокумент;
		БатФайл.УстановитьТекст(ТекстBatФайла);
		БатФайл.Записать(КаталогВременныхФайлов() + "\ClearCache.bat", КодировкаТекста.OEM);
		ЗапуститьПриложение("""" + КаталогВременныхФайлов() + "\ClearCache.bat""");            
		ЗавершитьРаботуСистемы(Ложь);
		
	Иначе
		Сообщить("Каталог """ + КаталогGUID + """ не найден. Очистка кэша невозможна.");
		Возврат;
	КонецЕсли;    
	
КонецПроцедуры

// Проверяет существование каталога
// Параметры
//         Путь - путь к проверяемому каталогу
//
// Возвращаемое значение
//      Булево. Истина, если каталог существует, Ложь, если каталог не существует
//
Функция КаталогИлиФайлСуществует(Путь)
	
	КаталогНаДиске = Новый Файл(Путь);
	
	Если КаталогНаДиске.Существует() Тогда
		Возврат Истина;
	Иначе
		Возврат Ложь;
	КонецЕсли;    
	
КонецФункции