1С скачать файл по ссылке. Распаковать rar архив в 1с.


Довольно часто нужны обработки, в которых нужно скачать по ссылке прайс/фото/другой файл. Бывает что эти файлы упакованы архиватором rar.
Скачиваем rar портабл тут и распаковываем куда-нибудь на компьютере, где установлен сервер 1с.

 
&НаСервере
Процедура загрузитьДанныеПоФТПНаСервере()
//указываем ссылки
	массивФото=новый массив;
	массивФото.Добавить("http://имя_сайта.ру/deno_foto/braslety/braslety.rar");
	массивФото.Добавить("http://имя_сайта.ру/deno_foto/chasy_tsepi/chasy_tsepi.rar");
	массивФото.Добавить("http://имя_сайта.ру/deno_foto/kolco/kolco.rar");
	массивФото.Добавить("http://имя_сайта.ру/deno_foto/kolje/kolje.rar");
	массивФото.Добавить("http://имя_сайта.ру/deno_foto/kulon_brosh/kulon_brosh.rar");
	массивФото.Добавить("http://имя_сайта.ру/deno_foto/sergi/sergi.rar");
	массивФото.Добавить("http://files/имя_сайта.ру/deno_foto/solomon/solomon.rar");
	массивФото.Добавить("http://имя_сайта.ру/deno_foto/judaika_galvanika/judaika_galvanika.rar");
//вырезаем имя файла
	для каждого ссылка из массивФото цикл	
		стр=ссылка;
	Пока Найти(Стр,"/")>0 Цикл
    Стр = Прав(Стр,СтрДлина(Стр) - Найти(Стр,"/"));
КонецЦикла;

	попытка
                // копируем файл по ссылке
		КопироватьФайл (Ссылка, "C:\Прайс\Дено\фото\"+стр);
		// распаковываем
		ЗапуститьПриложение(""""+ "c:\Прайс\wrar560ru\RAR.exe"+""""+" x "+"C:\Прайс\Дено\фото\"+стр+" *.* "+"C:\Прайс\Дено\фото\"); // путь относительно сервера до rar.exe [путь до архива] [куда распаковать]
	исключение
		сообщить(ОписаниеОшибки());
	конецПопытки;
КонецЦикла;
	
	
КонецПроцедуры

&НаКлиенте
Процедура загрузитьДанныеПоФТП(Команда)
	загрузитьДанныеПоФТПНаСервере();
КонецПроцедуры