Передать весь каталог через FTP

[maxxi]

Люди добрые, есть такой код, напишите пожалуйста, как мне изменить его чтобы  передать или получить весь каталог/папку на/с FTP.
Спасибо большое.

Код Выделить Развернуть

Процедура ЗагрузитьФайлыНаFTP()  Экспорт
   
    МойФайл="D:/test2.txt";
   
    FTPСоединение= Новый FTPСоединение("Server", , "login", "Pass", ,Истина,20);

    Попытка
       
        FTPСоединение.УстановитьТекущийКаталог("/");
        FTPСоединение.Записать(МойФайл,"/test2.txt");
       
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст="Файл загружен.";
        Сообщение.Сообщить();
       
    Исключение
       
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст="Ошибка загрузки: "+ ОписаниеОшибки();
        Сообщение.Сообщить();
       
    КонецПопытки;
           
КонецПроцедуры