Например есть такой файл Текстовый документ.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"


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

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

filenametosendftp ="c:\1.txt" спокойно отправляет

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

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

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

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

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

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