|
37 | 37 |
|
38 | 38 | Команда.Опция("p yp path ya-path", "", "путь к файлу на Yandex-Диск") |
39 | 39 | .ТСтрока() |
40 | | - .Обязательный() |
41 | 40 | .ВОкружении("CPDB_YD_PUT_PATH"); |
42 | 41 |
|
43 | 42 | Команда.Опция("r replace", "", "перезаписать файл на Яндекс-диске при загрузке") |
44 | 43 | .Флаговый() |
| 44 | + .ПоУмолчанию(Ложь) |
45 | 45 | .ВОкружении("CPDB_YD_PUT_REPLACE"); |
46 | 46 |
|
47 | 47 | Команда.Опция("ds delsrc", "", "удалить исходные файлы после отправки") |
48 | 48 | .Флаговый() |
| 49 | + .ПоУмолчанию(Ложь) |
49 | 50 | .ВОкружении("CPDB_YD_PUT_DEL_SRC"); |
50 | 51 |
|
51 | 52 | КонецПроцедуры // ОписаниеКоманды() |
|
80 | 81 | КонецЕсли; |
81 | 82 |
|
82 | 83 | МассивОтправляемыхФайлов = Новый Массив; |
83 | | - ФайлИнфо = Новый Файл(ПутьКФайлу); |
84 | | - |
85 | | - ЯндексДиск = Новый ЯндексДиск(); |
86 | | - ЯндексДиск.УстановитьТокенАвторизации(OAuth_Токен); |
| 84 | + |
| 85 | + РаботаСЯндексДиск = Новый РаботаСЯндексДиск(OAuth_Токен); |
87 | 86 |
|
88 | 87 | // Если целевой путь не указан - тогда используется корень Яндекс-диска |
89 | 88 | Если ЗначениеЗаполнено(ЦелевойПуть) Тогда |
90 | 89 | // Определяем наличие каталога |
91 | | - РаботаСФайлами.СоздатьПапкуНаЯДиске(ЯндексДиск, ЦелевойПуть); |
| 90 | + РаботаСЯндексДиск.СоздатьКаталог(ЦелевойПуть); |
92 | 91 | Иначе |
93 | 92 | ЦелевойПуть = ""; |
94 | 93 | КонецЕсли; |
95 | 94 |
|
96 | 95 | Если ЭтоСписокФайлов Тогда |
97 | 96 | МассивОтправляемыхФайлов = РаботаСФайлами.ПрочитатьСписокФайлов(ПутьКФайлу, Истина); |
| 97 | + Иначе |
| 98 | + ФайлИнфо = Новый Файл(ПутьКФайлу); |
| 99 | + МассивОтправляемыхФайлов.Добавить(ФайлИнфо.ПолноеИмя); |
98 | 100 | КонецЕсли; |
99 | | - |
100 | | - // Добавляем файл (или файл-список файлов) списка для закачки на Я-Диск |
101 | | - МассивОтправляемыхФайлов.Добавить(ФайлИнфо.ПолноеИмя); |
102 | 101 |
|
103 | 102 | Для Каждого ОтправляемыйФайл Из МассивОтправляемыхФайлов Цикл |
104 | | - РаботаСФайлами.ОтправитьФайлНаЯДиск(ЯндексДиск, ОтправляемыйФайл, ЦелевойПуть, Перезаписывать); |
| 103 | + РаботаСЯндексДиск.ОтправитьФайл(ОтправляемыйФайл, ЦелевойПуть, Перезаписывать); |
105 | 104 |
|
106 | 105 | Если УдалитьИсточник Тогда |
107 | 106 | УдалитьФайлы(ОтправляемыйФайл); |
|
0 commit comments