How do I Pass variable in PUT command

[bedowin]

I am trying the following code, but it will not send the File:

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

x = unique address, username, password

*If I forget the string variables and just type the text into the code of where it should go then it works fine.

Can someone please help?

[Edited by bedowin on 08-24-2000 at 01:25 PM]

[jbart]

Your code:

.Execute , "PUT " & strFileName & " " & strFileLocation

Should strFileLocation be strFileTitle instead ?

[bedowin]

Sorry, that was just a mistype... it really is...

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

[jbart]

Might try the following:

.Execute , "PUT " & "'" & strFileName & "'" & " " & "'" & strFileTitle & "'"

Hard to see, but that is placing a single quote within double quotes before and after the string variable.

You can probably combine some of that together so you will not have so many "&" signs, but the general idea is to quote your strings within the command.

[Edited by jbart on 08-24-2000 at 01:37 PM]

[bedowin]

No, that returns a syntax Error.

[jbart]

I left off the last "&" in my original post. Do you still get a syntax error with the correction ?

[bedowin]

No, but now it just doesn't do anything all over again... It just sits there...

[bedowin]

Hello.. is anyone still out there?

[jbart]

Just me. I cannot think of anything else to try. I experienced the same problem you are having, but placing the quotes around the string variables solved it for me.

Anyone else have ideas ?

[bedowin]

Could you send me the sample code you used that worked? [email protected]

Thanks!

[bedowin]

This works:

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 C:\Test.txt Test.txt"
    End With
End Sub

But this does not:

Private Sub cmdSend_Click()

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

And, again I've tested to see if the variables are turning up the right information and they are.

[bedowin]

I cannot believe no one has encountered this problem before... (