Ошибка открытия файла макроса ftp

Как известно, отправить файл на FTP сервер (или загрузить файл с FTP, создать папку на FTP сервере, и т.д.) можно при помощи таких API-функций из библиотеки wininet.dll, как FtpPutFile, FtpGetFile, FtpRenameFile, FtpDeleteFile, FtpRemoveDirectory, FtpCreateDirectory, FtpFindFirstFile и т.д.

Как именно использовать эти функции — можете посмотреть в коде надстройки для отправки файлов Excel на FTP сервер

В чем недостаток этого способа — так это в необходимости обеспечения совместимости кода с различными платформами.
В частности, чтобы код с функциями API работал и в Office 2010, и в 64-битной Windows, необходимо заметно увеличить объём кода. А, поскольку описание этих функций из wininet.dll и без того занимает много места (а универсальный код вообще займёт сотню строк), да и надо ещё и разбираться во всех этих функциях, т.к. в разных версиях Windows возможны различия в способе вызова функций из wininet.dll, и были созданы аналоги этих функций для работы с FTP, не использующие WinAPI

Сподвигла меня на это решение необходимость реализации средств обновления надстроек Excel, где необходимо было реализовать функционал отправки файлов Excel на FTP сервер, причем так, чтобы это стабильно работало на всех компьютерах. Попутно, кстати, родилась и функция загрузки файла с сервера без использования WinAPI, которая тоже вошла в состав данного инструментария.

Private Sub ЗагрузкаФайлаНаFTPсервер()
    ' Этот макрос загружает файл "C:ПЖиВ.jpg" в корневую папку FTP сервера,
    ' переименовывая файл в "ER"
    Dim FTP As New FTPcommander
    Link$ = FTP.UploadFile("C:ПЖиВ.jpg", , "ER")
 
    ' В переменную Link$ возвращается ссылка вида "http://u3661.seiko.vps-private.net/ER",
    ' по которой доступен загруженный через FTP файл
End Sub

Private Sub ЗагрузкаСПоследующимСкачиваниемФайла()
    Dim FTP As New FTPcommander
    fn$ = "C:Documents and SettingsAdminРабочий столstamp.png"
 
    ' отправляем файл с рабочего стола на FTP сервер
    ' (на сервере файл получит имя "1 2 3.png")
    Link$ = FTP.UploadFile(fn$, , "1 2 3.png")
    If Len(Link$) Then
        Debug.Print "Загруженный файл доступен по ссылке: ", Link$
    Else
        Debug.Print "Ошибка: ", FTP.GetLastError
    End If
 
    ' а теперь скачиваем с сервера ранее загруженный файл "1 2 3.png"
    ' Скачанный файл окажется в той же папке (Рабочий стол),
    ' и получит имя "stamp.png222"
    res = FTP.DownloadFile("", "1 2 3.png", fn$ & "222")
    If res Then
        Debug.Print "Файл успешно загружен с FTP"
    Else
        Debug.Print "Ошибка: ", FTP.GetLastError
    End If
End Sub

Sub Save_FTP_Account_Information()    ' достаточно запустить ОДИН РАЗ!
    ' Cохраняем в реестре Windows настройки FTP-аккаунта по-умолчанию
    SaveSetting Application.Name, "FTP", "Host", "Имя или IP адрес сервера FTP"
    SaveSetting Application.Name, "FTP", "Login", "Имя пользователя (логин)"
    SaveSetting Application.Name, "FTP", "Password", "Пароль к FTP серверу"
    SaveSetting Application.Name, "FTP", "BaseFolder", "путь к стартовой папке, например, /www/"
    SaveSetting Application.Name, "FTP", "BaseURL", "http://Адрес Вашего Сайта, куда будут закачиваться файлы/"
End Sub

Function MyFTPaccount() As FTPcommander
    ' возвращает объект типа FTPcommander, с нужными настройками
    Set MyFTPaccount = New FTPcommander
    With MyFTPaccount
        .Host = "Имя или IP адрес сервера FTP"
        .Login = "Имя пользователя (логин)"
        .Password = "Пароль к FTP серверу"
        .BaseFolder = "путь к стартовой папке, например, /www/"
        .BaseURL = "http://Адрес Вашего Сайта, куда будут закачиваться файлы/"
    End With
End Function

Sub test()
    Dim FTP As FTPcommander    ' объявляем переменную
    Set FTP = MyFTPaccount    ' создаём объект с нужными настройками
    FTP.UploadFile ("C:123.jpg")    ' отправляем файл на сервер
End Sub

1. 
   

   Zel-Gr
   New Member
   Пользователи

   Регистрация:

   16 июл 2014

   Сообщения:

   10

   Указаны все настройки по подключению, которые работают в FTP клиенте.
   При нажатии «Проверить соединение» следующая ошибка:Папки для загрузки менял и создавал для них разные доступы. Все равно ошибка.

2. 
   

   Root
   Администратор
   Администратор

   Регистрация:

   10 мар 2010

   Сообщения:

   14.817

   Город:

   Барнаул

   Здравствуйте.
   Какую рабочую папку указали?

3. 
   

   Root
   Администратор
   Администратор

   Регистрация:

   10 мар 2010

   Сообщения:

   14.817

   Город:

   Барнаул

4. 
   

   Zel-Gr
   New Member
   Пользователи

   Регистрация:

   16 июл 2014

   Сообщения:

   10

   Папку: site.ru/public_html
   Пробывал: site.ru/public_html/cd. Пробелов в конце адреса нет.

5. 
   

   Root
   Администратор
   Администратор

   Регистрация:

   10 мар 2010

   Сообщения:

   14.817

   Город:

   Барнаул

   Попробуйте другой хостинг. У меня и у моих коллег работает хорошо. Тестировали много раз. В чем у вас проблема — непонятно. Судя по ошибке — не так указали рабочую папку…

6. 
   

   Root
   Администратор
   Администратор

   Регистрация:

   10 мар 2010

   Сообщения:

   14.817

   Город:

   Барнаул

   Если хотите, напишите мне в Skype, посмотрим по TeamViewer, что у вас там такое…

7. 
   

   Zel-Gr
   New Member
   Пользователи

   Регистрация:

   16 июл 2014

   Сообщения:

   10

   Хостинг работает на VPS может ли быть дело в этом?
   Указывал конкретно:

   **Скрытое содержимое: доступно при наличии 1 постов.**

8. 
   

   Root
   Администратор
   Администратор

   Регистрация:

   10 мар 2010

   Сообщения:

   14.817

   Город:

   Барнаул

   Так мы будем только гадать…

9. 
   

   Zel-Gr
   New Member
   Пользователи

   Регистрация:

   16 июл 2014

   Сообщения:

   10

   Решение было найдено.
   FTP доступ был на папку cd в public_html.
   Был создан FTP доступ на уровень выше и в названии папки поставлено только cd.
   Теперь работает!

10. 
    

    Zel-Gr
    New Member
    Пользователи

    Регистрация:

    16 июл 2014

    Сообщения:

    10

    После установки соединения следующий вопрос:
    Как сделать так чтобы генерируемые .csv файлы которые находятся в папке на компьютере автоматически загружались в нужную папку на ftp заменяя файлы с таким же названием там?
    Сделать это при запуске программы.
    Насколько я успел узнать нужно сделать .bat файл и загрузить в программу.
    Как он должен выглядеть, что содержать?

11. 
    

    Root
    Администратор
    Администратор

    Регистрация:

    10 мар 2010

    Сообщения:

    14.817

    Город:

    Барнаул

    Функции работы с FTP создавались для автозагрузки туда картинок и файлов, скачанных макросом DOWNLOADFILE.
    Я могу лишь предложить дождаться нового макроса загрузки любых файлов с диска на FTP. По срокам ничего не могу сказать, но постараюсь сделать в ближайшие 1-2 недели…

12. 
    

    Zel-Gr
    New Member
    Пользователи

    Регистрация:

    16 июл 2014

    Сообщения:

    10

13. 
    

    Zel-Gr
    New Member
    Пользователи

    Регистрация:

    16 июл 2014

    Сообщения:

    10

    Уже можно использовать результат работ по созданию макроса загрузки любых файлов на FTP?

14. 
    

    Root
    Администратор
    Администратор

    Регистрация:

    10 мар 2010

    Сообщения:

    14.817

    Город:

    Барнаул

    Здравствуйте.

    Каюсь, но пока, увы, нет.

15. 
    

    Kreol
    Модератор
    Команда форума
    Модератор

    Регистрация:

    6 янв 2013

    Сообщения:

    2.645

    Если вам нужно загружать очень много файлов и больших объемов, загрузка через любой клиент будет намного быстрее. (filezilla, WinSCP)

16. 
    

    nail
    Member
    Пользователи

    Регистрация:

    15 сен 2014

    Сообщения:

    60

    Zel-Gr хочет наверное все-таки, чтобы автоматом после парсинга новый CSV на хост загружался поверх старого, либо в дополнение к существующему csv.
    А в самой CMS для импорта уже подхватываем CSV на выбор.
    Было бы замечательно. Меньше телодвижений filezilla, WinSCP.:blush:

17. 
    

    Root
    Администратор
    Администратор

    Регистрация:

    10 мар 2010

    Сообщения:

    14.817

    Город:

    Барнаул

    А вот это уже поинтереснее! =)
    Господин Zel-Gr, можно ли конкретизировать этот момент?
    Спасибо!

18. 
    

    Zel-Gr
    New Member
    Пользователи

    Регистрация:

    16 июл 2014

    Сообщения:

    10

    Да, все верно насчет автоматом на хост с перезаписью.
    Допустим имеется несколько поставщиков у магазина. После парсинга программой по каждому создается файл CSV с заданным названием и загружается на хост, перезаписывая старый. Далее скрипт, добавленный в CRON, берет в определенное заданное время поочереди все эти файлы и загружает в базу изменения.
    Можно ли сделать так, чтобы после включения программы при нажатии одной кнопки парсилось по очереди несколько проектов?
    Тогда весь процесс:
    1. Включить программу
    2. Запустить задание на парсинг нескольких проектов за небольшое время до времени заданного CRON

19. 
    

    Root
    Администратор
    Администратор

    Регистрация:

    10 мар 2010

    Сообщения:

    14.817

    Город:

    Барнаул

    Большое спасибо за информацию!

    Для запуска очереди проектов используйте планировщик программы (соответствующая кнопка на панели инструментов главного окна программы).

    С уважением к вам, Сергей.

20. 
    

    kagorec
    Администратор
    Команда форума
    Администратор

    Ссылки недоступны для гостей -Ура обновление вышло, теперь можно контент грузить в любой движек (при обработчике на стороне сервера)!

Я пытаюсь использовать макрос teraterm в vxworks

как это. имя файла = test-mbedtls.ttl

sendln 'cmd'
wait '[vxWorks]#'
sendln 'ftp x.x.x.x'
wait UsernamePrompt

(xxxx это мой ip)

но результат

Ошибка открытия: (подключение: errno = 0x3e)

когда я ввел вручную ftp xxxx в терминале teraterm, он работает хорошо.

но при использовании макроса всегда печатается Open fail

я неправильно использую макрос?

Решенная проблема… Устройство нехорошее, поэтому мне нужно подождать секунды. Добавляю паузу 3, работает хорошо.