Добрый День уважаемые коллеги. Мне нужно скачать папку с картинками с гугл диска, но у меня не получатся даже один файл скачать . С создаётся файл с нужным наименованием, но 9 байт. Помогите с кодом.
КлючAPI="AIzaSyDkc2uRdw-G76GmFN3QlGuogVJEAK-f62M";
// путь к файлу https://drive.google.com/file/d/158l33ArWj-bKzCg9zI0iSM2KQJROvFvX/view?usp=sharing
ИДФайла= "158l33ArWj-bKzCg9zI0iSM2KQJROvFvX";
ssl = Новый ЗащищенноеСоединениеOpenSSL(
Новый СертификатКлиентаWindows(),
Новый СертификатыУдостоверяющихЦентровWindows());
Соединение = Новый HTTPСоединение("www.googleapis.com",,,,,, ssl);
Запрос = Новый HTTPЗапрос("drive/v3/files/" + ИДФайла + "/?key=" + КлючAPI);
Ответ = Соединение.Получить(Запрос);
ИнфОФайле = Ответ.ПолучитьТелоКакСтроку();
Чтение = Новый ЧтениеJSON;
Чтение.УстановитьСтроку(ИнфОФайле);
Отв = ПрочитатьJSON(Чтение);
//Запрос = Новый HTTPЗапрос("drive/folders/1C7UVmH8wCT92RhkNDPBAJdukee1pSwxl/?key=" + КлючAPI + "&alt=media");
// Запрос = Новый HTTPЗапрос("drive/folders/1C7UVmH8wCT92RhkNDPBAJdukee1pSwxl/?key=" + КлючAPI + "&alt=media");
Запрос = Новый HTTPЗапрос("drive/folders/"+ИДФайла+"/?key=" + КлючAPI + "&alt=media");
//Запрос = Новый HTTPЗапрос("drive/v3/files/" + ИДФайла + "/?key=" + КлючAPI + "&alt=media");
Ответ = Соединение.Получить(Запрос);
Данные = Ответ.ПолучитьТелоКакДвоичныеДанные();
ПутьДляСохранения = "";
Д = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
Д.ПолноеИмяФайла = Отв.name;
Если Д.Выбрать() Тогда
Данные.Записать(Д.ПолноеИмяФайла);
КонецЕсли;