В начало

Процедура Просмотреть

 

Процедура Просмотреть (Кнопка)

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

            МассивФайлов = СерверайтиФайлы ("/","*.*");

            Для Каждого Файл Из МассивФайлов Цикл

                        Если ФайлтоФайл () Тогда

                                   ПолеСпискаобавить (Файл, Файл.Имя)

                        КонецЕсли;

            КонецЦикла;

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