I tried to use the "Cancel" method to stop the connection, however, it will hold up the FTP server and my program.
Then I can't connect to the server and prompt "Too many users"
=======================================================
Private Sub Form_Load()
If Inet1.StillExecuting = True Then
Inet1.Cancel
End If
With Inet1
.Protocol = icFTP
.URL = "2XX.168.168.XXX"
.UserName = "xyz"
.Password = "xyz"
.Execute , "GET abc.txt " & App.Path & "\abc.txt"
End With
End Sub
Private Sub Command1_Click()
Inet1.Cancel
End Sub
=======================================================
Can someone fix it please?
Then I can't connect to the server and prompt "Too many users"
=======================================================
Private Sub Form_Load()
If Inet1.StillExecuting = True Then
Inet1.Cancel
End If
With Inet1
.Protocol = icFTP
.URL = "2XX.168.168.XXX"
.UserName = "xyz"
.Password = "xyz"
.Execute , "GET abc.txt " & App.Path & "\abc.txt"
End With
End Sub
Private Sub Command1_Click()
Inet1.Cancel
End Sub
=======================================================
Can someone fix it please?