FTPСоединение устанавливается, но не создаются каталоги и не загружаются файлы

Функция УстановитьFTPСоединение(Таймаут, СпособВыбораСертификатаWindowsАвто = Неопределено)
	
	Если ЭтаФорма.РекПрокси = 1 Тогда
		Прокси = Неопределено;
	ИначеЕсли ЭтаФорма.РекПрокси = 2 Тогда
		Прокси = Новый ИнтернетПрокси(Истина);
	ИначеЕсли ЭтаФорма.РекПрокси = 3 Тогда
		Прокси = Новый ИнтернетПрокси(Ложь);
	КонецЕсли;
	
	ПассивноеСоединение = ЭтаФорма.РекПассивноеСоединение;
	
	Если ЭтаФорма.РекЗащищенноеСоединение = 1 Тогда
		ЗащищенноеСоединение = Неопределено;
	ИначеЕсли ЭтаФорма.РекЗащищенноеСоединение = 2 Тогда
		ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(Неопределено, Неопределено);
	ИначеЕсли ЭтаФорма.РекЗащищенноеСоединение = 3 Тогда
		ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(
		Новый СертификатКлиентаWindows(СпособВыбораСертификатаWindowsАвто),
		Новый СертификатыУдостоверяющихЦентровWindows());
	ИначеЕсли ЭтаФорма.РекЗащищенноеСоединение = 4 Тогда
		ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(
		Новый СертификатКлиентаWindows(),
		Новый СертификатыУдостоверяющихЦентровWindows());
	ИначеЕсли ЭтаФорма.РекЗащищенноеСоединение = 5 Тогда
		ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(
		Новый СертификатКлиентаWindows(),
		Новый СертификатыУдостоверяющихЦентровФайл("C:\Program Files (x86)\1cv8\8.3.14.1779\bin\cacert.pem"));
	ИначеЕсли ЭтаФорма.РекЗащищенноеСоединение = 6 Тогда
		ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(
		Новый СертификатКлиентаWindows(СпособВыбораСертификатаWindowsАвто),
		Новый СертификатыУдостоверяющихЦентровФайл("C:\Program Files (x86)\1cv8\8.3.14.1779\bin\cacert.pem"));
	КонецЕсли; 
	
	Если ЭтаФорма.РекУровеньИспользованияЗащищенногоСоединения = 1 Тогда
		УровеньИспользованияЗащищенногоСоединения = Неопределено;
	ИначеЕсли ЭтаФорма.РекУровеньИспользованияЗащищенногоСоединения = 2 Тогда
		УровеньИспользованияЗащищенногоСоединения = УровеньИспользованияЗащищенногоСоединенияFTP.Авто;
	ИначеЕсли ЭтаФорма.РекУровеньИспользованияЗащищенногоСоединения = 3 Тогда
		УровеньИспользованияЗащищенногоСоединения = УровеньИспользованияЗащищенногоСоединенияFTP.ИспользоватьЕслиВозможно;
	ИначеЕсли ЭтаФорма.РекУровеньИспользованияЗащищенногоСоединения = 4 Тогда
		УровеньИспользованияЗащищенногоСоединения = УровеньИспользованияЗащищенногоСоединенияFTP.НеИспользовать;
	ИначеЕсли ЭтаФорма.РекУровеньИспользованияЗащищенногоСоединения = 5 Тогда
		УровеньИспользованияЗащищенногоСоединения = УровеньИспользованияЗащищенногоСоединенияFTP.Требовать;
	ИначеЕсли ЭтаФорма.РекУровеньИспользованияЗащищенногоСоединения = 5 Тогда
		УровеньИспользованияЗащищенногоСоединения = УровеньИспользованияЗащищенногоСоединенияFTP.ТребоватьДляУправления;
	КонецЕсли;
	
	
	
	

	
	Попытка
		
		FTPСоединение = Новый FTPСоединение(
		ЭтаФорма.Адрес, 
		Число(ЭтаФорма.Порт), 
		ЭтаФорма.Логин,
		ЭтаФорма.Пароль,
		Прокси,
		ПассивноеСоединение,
		Таймаут,
		ЗащищенноеСоединение,
		УровеньИспользованияЗащищенногоСоединения
		);
		
	Исключение
		
		FTPСоединение = Неопределено;
		Сообщить("Ошибка создания FTPсоединения: " + ОписаниеОшибки());
		
	КонецПопытки;
	
	Возврат FTPСоединение;
КонецФункции

//ssl1 = Новый ЗащищенноеСоединениеOpenSSL(
//Новый СертификатКлиентаWindows(СпособВыбораСертификатаWindows.Авто),
//Новый СертификатыУдостоверяющихЦентровWindows());
//
//ssl2 = Новый ЗащищенноеСоединениеOpenSSL(
//Новый СертификатКлиентаWindows(),
//Новый СертификатыУдостоверяющихЦентровФайл("C:/certs/myca.pem"));
//
//ssl3 = Новый ЗащищенноеСоединениеOpenSSL(
//Новый СертификатКлиентаФайл("C:/certs/user.p12", "password" ),
//Новый СертификатыУдостоверяющихЦентровФайл("C:/certs/myca.pem"));
//
//ssl4 = Новый ЗащищенноеСоединениеOpenSSL( неопределено, неопределено );
//
//ssl5 = Новый ЗащищенноеСоединениеOpenSSL(
//Новый СертификатКлиентаФайл("C:/certs/user.p13", "password" ),
//Новый СертификатыУдостоверяющихЦентровОС());

&НаСервере
Процедура СоздатьТестовыйКаталогНаСервере()
	FTPСоединение = УстановитьFTPСоединение(10);
	FTPСоединение.УстановитьТекущийКаталог("/");
	//Попытка
		FTPСоединение.СоздатьКаталог(ЭтаФОрма.Каталог);
		//Сообщить("Каталог создан " + ЭтаФОрма.Каталог);
	//Исключение
	//	Сообщить("НИТ " + ЭтаФОрма.Каталог + " " + );
	//КонецПопытки;
	
	//ИдКонтрагента = "314";
	
	//ГлавнаяДиректория = "/";
	
	//FTPСоединение.УстановитьТекущийКаталог(ГлавнаяДиректория);
	//КаталогСуществует = ПроверитьНаличиеКаталогаНаFTPСервере(FTPСоединение, ГлавнаяДиректория, ИдКонтрагента);			
	//Если НЕ КаталогСуществует Тогда
	//	FTPСоединение.СоздатьКаталог("/" + Строка(ИдКонтрагента) + "/");
	//Иначе
	//	Сообщить("Каталог " + Строка(ИдКонтрагента) + " уже существует");
	//КонецЕсли;
	//
	//КаталогКонтрагента = "/" + ИдКонтрагента + "/";
КонецПроцедуры