Inet and Windows 2000

[bedowin]

Is there a problem using Inet with Windows 2000?

I was attempting to use the following code with no success:

Private Sub cmdSend_Click()

Dim strFileName As String, strFileTitle As String
strFileName = CommonDialog1.FileName
strFileTitle = CommonDialog1.FileTitle

With Inet1
        .Protocol = icFTP
        .URL = "xxx.xxx.xxx.xxx"
        .UserName = "xxx"
        .Password = "xxx"
        .Execute , "PUT " & strFileName & " " & strFileTitle
    End With

End Sub

However, this piece of code worked:

Private Sub cmdSend_Click()

With Inet1
        .Protocol = icFTP
        .URL = "xxx.xxx.xxx.xxx"
        .UserName = "xxx"
        .Password = "xxx"
        .Execute , "PUT C:\Test.txt Test.txt"
    End With

End Sub

This code does not work either:

Private Sub cmdSend_Click()

Dim strFileName As String, strFileTitle As String
strFileName = CommonDialog1.FileName
strFileTitle = CommonDialog1.FileTitle

With Inet1
        .Protocol = icFTP
        .URL = "xxx.xxx.xxx.xxx"
        .UserName = "xxx"
        .Password = "xxx"
        .Execute , "PUT " & "'" & strFileName & "'" & " " & "'" & strFileTitle & "'"
    End With

End Sub

[dj4]

Sorry my bad english :-)
if strFileName include space-mark, like this:
C:\My Files\test.txt THIS NOT WORK!!!

Try this way:

"PUT ""C:\MY PROGRAMS\ME.JPG"" ME.JPG" should also work

Or you could convert it to a short path:

Option Explicit
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private Const MAX_PATH As Long = 260

Private Function GetShortPath(sLongPath As String) As String

Dim sBuffer As String
Dim lRet As Long

sBuffer = Space$(MAX_PATH)
lRet = GetShortPathName(sLongPath, sBuffer, MAX_PATH)
sBuffer = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)

End Function


Private Sub Command1_Click()

MsgBox GetShortPath("C:\Program Files")

End Sub

I hope this helps you...
- Dj4