1с ftp установитьтекущийкаталог ошибка

Добрый день! Помогите с решением проблемы!

При попытке УстановитьТекущийКаталог() вызывается исключение. При этом каталог есть, через браузер могу посмотреть, через тотал командер тоже, но при попытке открыть этот каталог через Мой компьютер выдает ошибку:

an error occurred opening that folder on the ftp server. make sure you have permission access on this folder.

Details:

550 — NAMEFMT set to 1

550 — Specified directory does not exist

550 — Working directory not changed.

1С выдает такое сообщение:

{Форма.Форма.Форма(257)}: Ошибка при вызове метода контекста (УстановитьТекущийКаталог): Ошибка аутентификации при доступе к ресурсу:  ftp://192.168.82.100:21 Access denied to remote resource

Но как вы понимаете ввожу я везде одни и теже параметры аутентификации.

В чем проблема? Очень нужна помощь!

&НаКлиенте

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

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

&НаКлиенте
Функция СоздатьНовоеСоединение() 

    Если Не ЗначениеЗаполнено(Объект.FTPПорт) Тогда
        Порт = 21;
    Иначе
        Порт = Объект.FTPПорт;
    КонецЕсли;
    
    Попытка 
        
        Соединение = Новый FTPСоединение(Объект.FTPСервер, Порт, Объект.FTPПользователь, Объект.FTPПароль); 
        
    Исключение 
        
        Сообщить("Не удалось установить соединение с сервером " + Объект.FTPСервер + ":" + Строка(Объект.FTPПорт) + ". 
        |Проверьте правильность адреса сервера, порт, имя пользователя и пароль."); 
        
        Соединение = Неопределено; 
        
    Конецпопытки; 

    Возврат Соединение;
    
КонецФункции

Jump

16 — 31.10.14 — 18:00

Вступайте в мою группу помощник программиста.
В ней мы обсуждаем программирование в 1С.

2017-12-18T22:37:08+00:00<<< XML ZIP WORD DBF HTTP FTP ТекстовыйДокумент ТабличныйДокумент

Скачать эти примеры в виде тестовой базы (как загрузить, как исследовать)

/// Как подлючиться к FTP серверу из 1с 8.3, 8.2
 
&НаКлиенте
Функция ПодключитьсяКFTPСерверу()
 
    Соединение = Новый FTPСоединение(
        "0.0.0.0", // адрес ftp сервера
        21, // порт сервера
        "user", // имя пользователя
        "123", // пароль пользователя
        Неопределено, // прокси не используется
        Истина, // пассивный режим работы
        0, // таймаут (0 - без ограничений)
        Неопределено // незащищенное соединение
    );
 
    // Для случаев, когда у ftp сервера нет возможности
    // обращаться к нам (мы находимся за межсетевым экраном)
    // следует использовать пассивный режим работы.
 
    Возврат Соединение;
 
КонецФункции
 
/// Как искать файлы по FTP из 1с 8.3, 8.2
 
&НаКлиенте
Процедура ПоискФайловПоFTP(Команда)
 
    // Функция подключения определена выше.
    Соединение = ПодключитьсяКFTPСерверу();
 
    // Установим текущий каталог.
    Соединение.УстановитьТекущийКаталог("/");
 
    // Найдём конкретный файл по его полному адресу.
    // Внимание! Используем прямые слеши.
    НайденныеФайлы = Соединение.НайтиФайлы("/data/1.txt");
 
    Если НайденныеФайлы.Количество() > 0 Тогда
        Файл = НайденныеФайлы[0];
        // и получим следующую информацию о нём:
        Сообщить("Имя: " + Файл.ПолноеИмя);       
        Сообщить("Это файл: " + Файл.ЭтоФайл());
        Сообщить("Это каталог: " + Файл.ЭтоКаталог());        
        Сообщить("Размер: " + Файл.Размер() + " байт");
        Сообщить("Атрибут только чтение: " + Файл.ПолучитьТолькоЧтение());
        Сообщить("Атрибут скрытый: " + Файл.ПолучитьНевидимость());
        Сообщить("Атрибут время изменения: " + Файл.ПолучитьВремяИзменения());
    КонецЕсли;
 
    // Найдём все папки и файлы в корневом каталоге
    НайденныеФайлы = Соединение.НайтиФайлы(
        "/", // ищём в корневом каталоге
        "*" // любые файлы (здесь можно задать маску)
    );
    Для Каждого Файл Из НайденныеФайлы Цикл
        Сообщить(Файл.ПолноеИмя);
    КонецЦикла;
 
    // Найдём все файлы с расширением .txt в папке data
    НайденныеФайлы = Соединение.НайтиФайлы(
        "/data", // ищём в определенной папке
        "*.txt" // по определенной маске
    );
 
КонецПроцедуры
 
/// Как скачивать файлы по FTP из 1с 8.3, 8.2
 
&НаКлиенте
Процедура ПолучениеФайловПоFTP(Команда)
 
    // Функция подключения определена выше.
    Соединение = ПодключитьсяКFTPСерверу();
 
    // Установим текущий каталог.
    Соединение.УстановитьТекущийКаталог("/");
 
    ПапкаДляСохранения = СлужебныйНаКлиенте.СоздатьПапкуДляЭкспериментов();    
 
    // Скачаем "trade_exchange/01.01.2017.xml"
    // Внимание! Используем прямые слеши.
    Соединение.Получить(
         "trade_exchange/01.01.2017.xml", // что качаем
         ПапкаДляСохранения + "/01.01.2017.xml" // куда качаем
    );
 
    Сообщить("Сохранили файл в " + ПапкаДляСохранения);
 
КонецПроцедуры
 
/// Как передавать файлы по FTP из 1с 8.3, 8.2
 
&НаКлиенте
Процедура ПередачаФайловПоFTP(Команда)
 
    // Функция подключения определена выше.
    Соединение = ПодключитьсяКFTPСерверу();
 
    // Установим текущий каталог.
    Соединение.УстановитьТекущийКаталог("/");
 
    // Создадим случайный текстовый файл.
    Папка = СлужебныйНаКлиенте.СоздатьПапкуДляЭкспериментов();
    Служебный.СоздатьПроизвольныйТекстовыйФайл(
        Папка + "/info.txt");
 
    // Запишем этот файл на сервер по ftp в папку trade_exchange
    // Внимание! Используем прямые слеши.
    Соединение.Записать(
        Папка + "/info.txt", // что записываем
        "/trade_exchange/info.txt" // куда записываем
    );
 
    Сообщить("Передали файл по FTP.");
 
КонецПроцедуры
 
&НаКлиенте
Процедура ДругиеОперацииПоFTP(Команда)
 
    // Функция подключения определена выше.
    Соединение = ПодключитьсяКFTPСерверу();
 
    // Установим текущий каталог.
    Соединение.УстановитьТекущийКаталог("/");
 
        /// Как создать новый каталог по FTP из 1с 8.3, 8.2
 
    Соединение.СоздатьКаталог("/NewBin");
 
        /// Как удалить каталог по FTP вместе с содержимым из 1с 8.3, 8.2
 
    Соединение.Удалить("/trade_exchange");
 
        /// Как удалить файлы по FTP из 1с 8.3, 8.2    
 
    Соединение.Удалить(
        "/trade_exchange/01.01.2017.xml"
    ); // удаляем один файл по его адресу
 
    Соединение.Удалить(
        "/trade_exchange", // путь к удаляемым файлам
        "*.xml" // маска для выбора
    ); // или несколько файлов поиском по маске
 
        /// Как переименовать файл или каталог по FTP из 1с 8.3, 8.2
 
    Соединение.Переместить(
        "/NewBin", // старое имя
        "/OldBin" // новое имя
    );
 
КонецПроцедуры
 
/// Скачать и выполнить эти примеры на компьютере

Скачать эти примеры в виде тестовой базы (как загрузить, как исследовать)

Работа с ftp в языке 1С 8.3, 8.2 (в примерах)

<<< XML ZIP WORD DBF HTTP FTP ТекстовыйДокумент ТабличныйДокумент

Подскажите как прочитать текстовый файл который находится на ftp сервере?
Остановился на этапе поиска текстовых файлов.

СерверФТП.УстановитьТекущийКаталог(КаталогRS+"/out");
ФайлыTXT = СерверФТП.НайтиФайлы(СерверФТП.ТекущийКаталог(),"*.txt");
Для Каждого Файл Из ФайлыTXT Цикл
       ВремФайл = ПолучитьИмяВременногоФайла("txt");
       СерверФТП.Получить(Файл.Имя,ВремФайл);

Так вот тоже не получается…


СерверФТП.УстановитьТекущийКаталог(КаталогRS+"/out");
ФайлыTXT = СерверФТП.НайтиФайлы(СерверФТП.ТекущийКаталог(),"*.txt");
Для Каждого Файл Из ФайлыTXT Цикл
    ТекстДок = Новый ТекстовыйДокумент;
    ТекстДок.Прочитать("ftp://***.***.***.***/out/"+Файл.Имя);
КонецЦикла;
Текст ошибки:

{Обработка.ЧтениеФайла.Форма.Форма.Форма(44)}: Ошибка при вызове метода контекста (Прочитать)
ТекстДок.Прочитать(«ftp://***.***.***.***/out/»+Файл.Имя);
по причине:
Файл не обнаружен ‘file://ftp://***.***.***.***/out/file.txt

Подскажите кто нибудь как решить проблему. В цикле перебираю файлы c ftp, разбиваю на строки и заношу строки в массив (то что массив затирается каждый раз уже понял, исправлю ) Дело в том, что на этапе считывания 2го файла начинается ругань на 14ю строку СерверФТП.Получить(Файлtxt.Имя,ВремФайл); А 1й файл считывается нормально, дальше происходит, то что нужно…

Текст ошибки:
{Обработка.ЧтениеФайла.Форма.Форма.Форма(365)}: Ошибка при вызове метода контекста (Получить)
                  СерверФТП.Получить(Файлtxt.Имя,ВремФайл);
по причине:
Ошибка работы с Интернет:  ftp://***.***.***.***:****ftp: couldn’t retrieve (RETR failed) the specified file


********************************************************
1 Если ФайлыTXT.Количество() > 0 Тогда
2 Чтение = Новый ЧтениеТекста;
3 Для Каждого Файлtxt Из ФайлыTXT Цикл
4 Запрос = Новый Запрос;
5 Запрос.Текст = "ВЫБРАТЬ
6                | ДокументыСозданий_ИзмененийСрезПоследних.НомерДокумента
7                |ИЗ
8                | РегистрСведений.ДокументыСозданий_Изменений.СрезПоследних(&Дата, НомерДокумента = &НомерДокумента) КАК ДокументыСозданий_ИзмененийСрезПоследних";
9 Запрос.УстановитьПараметр("Дата",ТекущаяДата());
10 Запрос.УстановитьПараметр("НомерДокумента",Файлtxt.ИмяБезРасширения);
11 Результат = Запрос.Выполнить().Выбрать();
12 Если НЕ Результат.Количество() > 0 Тогда
13 ВремФайл = ПолучитьИмяВременногоФайла("txt");
14 СерверФТП.Получить(Файлtxt.Имя,ВремФайл);
15    Чтение.Открыть(ВремФайл);
16 Массив = Новый Массив;
17 Массив.Добавить(Файлtxt.ИмяБезРасширения);
18 СтрокаТекст = Чтение.ПрочитатьСтроку();
19 Пока СтрокаТекст <> Неопределено Цикл
20 Массив.Добавить(СтрокаТекст);
21 СтрокаТекст = Чтение.ПрочитатьСтроку();
22 КонецЦикла;
23 Иначе
24 Массив = 0;
25 КонецЕсли;
26 СерверФТП.УстановитьТекущийКаталог(КаталогRS+"/in");
27 ТекстДок = Новый ТекстовыйДокумент;
28 Файл = ПолучитьИмяВременногоФайла("txt");
29 ТекстДок.Записать(Файл);
30 СерверФТП.Записать(Файл,Файлtxt.ИмяБезРасширения+"+"+".txt");
31 КонецЦикла;
32 КонецЕсли;
********************************************************


Не получается Так же ошибка…

Добавлено: 17 июл 2013, 15:19

Цитата: Dethmontt от 17 июл 2013, 14:59
СерверФТП.Записать(Файл,Файлtxt.ИмяБезРасширения+"+"+".txt");
Чтение.Закрыть();
КонецЦикла;

Добавлено: 17 июл 2013, 15:17

---

Возможно у тебя соединение рвется с фтп по таймауту или из за связи

Попробую задержку поставить в цикле…

Добавлено: 17 июл 2013, 15:22

Цитата: Soulidium от 17 июл 2013, 15:16Попробую задержку поставить в цикле…

И с задержкой не получается

Добавлено: 17 июл 2013, 15:24

Цитата: Dethmontt от 17 июл 2013, 14:59Возможно у тебя соединение рвется с фтп по таймауту или из за связи

Так к слову, ftp у меня компьютере.

Добавлено: 17 июл 2013, 15:36

Есть идея загрузить файл на Диск и потом уже с Диска, при помощи ТекстовыйДокумент, считывать файл построчно в массив. Но идея с засорением диска не очень нравится… 

 0 

  // Загрузка файлов на FTP сервер

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

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

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

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

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

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

   КонецЕсли;

КонецЦикла;

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


// Просмотр файлов на FTP сервере

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

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

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

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

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

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

   КонецЕсли;

КонецЦикла;

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

Код 1C v 8.х

  ПапкаКонтрагена = "Kontr";

    Попытка

        ИмяFTPСервера               = "*******";

        ПортFTPСоединения           = "21";

        ПользовательFTPСоединения   = "****" ;

        ПарольFTPСоединения         =  "*****" ;

        ПассивноеFTPСоединение      =  Ложь;

        Соединение = Новый FTPСоединение(ИмяFTPСервера, ПортFTPСоединения,ПользовательFTPСоединения,ПарольFTPСоединения, ,ПассивноеFTPСоединение);

        Массив = Соединение.НайтиФайлы("/"+ПапкаКонтрагена+"/", "");

        Если Массив.Количество() = 0 Тогда

           Соединение.СоздатьКаталог(ПапкаКонтрагена);           

         КонецЕсли;

        Соединение.УстановитьТекущийКаталог(ПапкаКонтрагена);

        Соединение.Записать(ИмяФайлаЗаписи, "file.txt"); 

    Исключение

        Сообщить("Ошибка записи файла на FTP!!!");

        Возврат ""; 

    КонецПопытки;