Uploading To FTP

Hi Guys ... I'm triying to make an App to Upload files on FTP..

but i receive an error which is getting me crazy ...

Ok this is the code :

Quote:

---

Private Sub Connect_Click()

With Inet1

Inet1.AccessType = icUseDefault

Inet1.Protocol = icFTP

Inet1.RemoteHost = Text1.Text

Inet1.RemotePort = Text4.Text

Inet1.Password = Text3.Text

Inet1.UserName = Text2.Text

Inet1.RequestTimeout = "180"

End With
End if




Private Sub Upload_Click()
Dim strRemote As String
Dim strLocal As String
strRemote = Text6.Text
strLocal = Text5.Text
Inet1.Execute , "PUT """ & strLocal & """ " & strRemote'Here is the PROBLEM
End Sub

---

Anyone . anyidea how to fix it ?

i think like this
"PUT """ & strlocal & """ """ & strRemote & """

Still Now Working ..:S

Error : Cannot Connect to the Remote Host

An obvious, and possibly stupid question, but one that needs to be asked: are you sure the remote host is available for connection?

Yeah , it is available , i'm already Connected to that Host by using SmartFTP

you don't show us the code you use to connect
just the settings and the put

Well i don't have a code like that ...

Do i must to have it ?

If Yes ..

Can you tell me what's that code .. ?

yes you need to connect to the ftp server before you can do anything
i don't use inet control, but try inet.connect

here is some sample code, change from get to put

vb Code:

Inet1.Execute "FTP://ftp.microsoft.com", _
"GET Disclaimer.txt C:\Temp\Disclaimer.txt"