VPF::Замучался отправлять по ФТП - Форум программистов

anvarfromkz

Дата 14.10.2010, 20:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 14.10.2010

Репутация: нет
Всего: нет

Например есть такой файл Текстовый документ.txt на рабочем столе

C:\Documents and Settings\Admin\Рабочий стол\Текстовый документ.txt

Отправляю на фтп

Код


filenametosendftp ="C:\Documents and Settings\Admin\Рабочий стол\Текстовый документ.txt"

    host_name = "****.kz"
    
inetFTP.URL = host_name
inetFTP.UserName = "***"
inetFTP.Password = "***"

    inetFTP.Execute , "Put " & filenametosendftp & " " & "1.txt"

Не хочет отправлять, smile

Другой файл например

Код


filenametosendftp ="c:\1.txt"

спокойно отправляет

Уже не знаю что делать smile

Пробовал через GetShortPathName API тоже не хочет отправлять

Есть ли другой рабочий код? без косяков и глюков? который будет работать с русскими буквами?

Или хороший код отправки по ФТП который будет работать с латиницей и кириллицей в именах файлов или VB 6 такая глюкнутая?

ура! нашел решение smile

Код


  Set fso = New FileSystemObject
  Set fsoFile = fso.GetFile(fi)
  
  
    inetFTP.Execute , "Put " & _
        fsoFile.ShortPath & " " & "1.txt"

и еще вот вдогонку к посту если в имени файла содержаться пробелы на фтп не зальет
поэтому делаю так

Код


For i = 1 To Len(fileext)
If Mid(fileext, i, 1) = Chr(32) Then Mid(fileext, i, 1) = Chr(95)
Next i


  inetFTP.Execute , "Put " & _
        fsoFile.ShortPath & " " & fileext

Это сообщение отредактировал(а) Akina - 14.10.2010, 20:57

Akina

Дата 14.10.2010, 21:02 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(anvarfromkz @ 14.10.2010, 21:17

)

Код


For i = 1 To Len(fileext)
If Mid(fileext, i, 1) = Chr(32) Then Mid(fileext, i, 1) = Chr(95)
Next i

Открою тебе тайну - существует функция Replace()

Цитата(anvarfromkz @ 14.10.2010, 21:17

)

Код


fsoFile.ShortPath

При отключенных коротких именах работать не будет.

Цитата(anvarfromkz @ 14.10.2010, 21:17

)

Не хочет отправлять

А тебя в детстве не учили, что длинные имена следует обрамлять кавычками?
Но лучше при работе по HTTP/FTP делать URLencode.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »