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