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 :

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 ?