Функция СкачатьФайлПоСсылке(Ссылка,ИмяФайла)
Попытка
JS=СоздатьОбъект("MSScriptControl.ScriptControl");
JS.Language="jscript";
JS.Timeout=-1;
Исключение
ТекстОшибки=ОписаниеОшибки();
Сообщить("Не удалось создать объект MSScriptControl.ScriptControl","!");
Сообщить("Описание ошибки: "+ТекстОшибки,"!");
Возврат 0;
КонецПопытки;
Попытка
СтрКода="function DwnFile(FileLink,FileName)
|{
| Stream=new ActiveXObject(""ADODB.Stream"");
| Stream.Mode=3;
| Stream.Type=1;
| Stream.Open();
| Req=new ActiveXObject(""Microsoft.XMLHTTP"");
| Req.Open(""GET"",FileLink,0,"""","""");
| Req.Send();
| Stream.Write(Req.responseBody);
| Stream.SaveToFile(FileName,2);
| Stream.Close();
| return(0);
|}
|";
JS.AddCode(СтрКода);
Рез=JS.Modules("Global").CodeObject.DwnFile(Ссылка,ИмяФайла);
Исключение
ТекстОшибки=ОписаниеОшибки();
Сообщить("Произошла ошибка при закачке файла!","!");
Сообщить("Описание ошибки: "+ТекстОшибки,"!");
Возврат 0;
КонецПопытки;
Возврат 1;
КонецФункции
Возвращает 1 в случае успеха, 0 в случае неудачи
