要这样处理
Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Connected = False '如果FTP没有连接
If ftp1.Connect Then '连接FTP
ftp1.OpenManager() '如果连接成功,打开FTP客户端
Else
Messagebox.show("连接FTP失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If