В начало

Загрузить отмеченные

 

Процедура ЗагрузитьОтмеченные (Кнопка)

            Сервер = Новый FTPСоединение (FTPServer);

            Для Каждого Файл Из ПолеСписка Цикл

                        Если Файлометка Тогда

                                   Серверолучить (Файл.Значение.ПолноеИмя, "с:\temp" + Файл.Значение.ПолноеИмя);

                                   Файлометка = Ложь;

                        КонецЕсли;

            КонецЦикла;

КонецПроцедуры