-
Stupid Inet Control...
I have this code inside a command button:
Code:
Dim strFTPCommand As String
With inetFTPTest
.Cancel
.Protocol = icFTP
.URL = txtServer.Text
.UserName = txtUsername.Text
.Password = txtPassword.Text
End With
frmAdminFTPStatus.Show
frmAdminFTPStatus.lblStatus.Caption = "Uploading Test File"
strFTPCommand = "PUT " & GetShortPath(App.Path & "\config\ftptest.bok") & " " & txtRemoteDir.Text & "/ftptest.bok"
inetFTPTest.Execute , strFTPCommand
frmAdminFTPStatus.lblStatus.Caption = "Upload Completed!"
frmAdminFTPStatus.lblStatus.Caption = "Downloading Test File"
Do While inetFTPTest.StillExecuting = True
DoEvents
Loop
strFTPCommand = "GET " & txtRemoteDir.Text & "ftptest.bok " & GetShortPath(App.Path & "\config\test\ftptest.bok") & ""
inetFTPTest.Execute strFTPCommand
MsgBox "FTP Test Completed Successfully!", vbInformation, gAppName
frmAdminFTPStatus.Hide
Whenever the line in red is reached, Visual Basic throws up an error stating that it was unable to connect to the remote host. I am very new to the Inet control, so I suspect it is a simple problem.
Any ideas, Guys?
Thanks in advance..
-
-
Gyaaaaaaaaaaargh!
Thanks RyeBread!!!