Помогите! Слетает FTP-копирование

[Lady Stardust]

Для FTP копирования используется Internet Transfer Control (это ActiveX)
Когда в локальном пути к копируемому файлу находится пробел (например, Program Files), то метод Execute отказывается копировать этот файл на веб-сервер ;-(
Подскажите, как можно побороть эту проблему!

[hCORe]

Для этого я копирую нужный файл в корень диска C:\
и использую этот путь. Тоже не решение

Поставь на форму 2 текстбокса (txtFile и txtDirectory для указания имени исходного файла и конечной директории соответственно) + MS Internet Transfer Control inetDownload:

Код: Выделить всё

On Error Resume Next
Dim tmpStr As String, tmpStr2 As String
    PutIt = True
    tmpStr = txtDirectory.Text ' папка, в которую надо копировать
    cmdCancel.Enabled = True
    tmpStr2 = GetFileName(txtFile.Text)
    FileCopy txtLocal.Text, "C:\" & tmpStr2
    If Mid(tmpStr, Len(tmpStr)) <> "/" Then tmpStr = tmpStr & "/"
    ErrTrap = False
    inetDownload.Execute , "PUT C:\" & tmpStr2 & " " & tmpStr & tmpStr2

Public Function GetFileName(FilePath As String)
On Error Resume Next
Dim CN, A, B
CN = 1
Ret:
  A = InStr(CN, FilePath, "\")
  If A = 0 Then
    GetFileName = Mid(FilePath, B - -1): Exit Function
  Else
    CN = A - -1: B = InStr(CN, FilePath, "\")
    If B = 0 Then
      GetFileName = Mid(FilePath, A - -1): Exit Function
    Else
      CN = B - -1: GoTo Ret
    End If
  End If
End Function


[alibek]

Попробуй заменить "Program Files" на "Program%20Files" и т.п.