FTP连接不上等候时间过长 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

用下面的代码，如果FTP服务器连接不上的话，不是马上报错，而是反复尝试连接多次无果后才报错。

这样等候时间太长，能不能第一次连接不上就报错？

谢谢！

Dim ftp1 As New FtpClient

ftp1.Host="196.168.3.189"

ftp1.Account = "ftpuser"

ftp1.Password = "!Abcd1234"

ftp1.Changedir("\项目管理")

If ftp1.Connected = False '如果FTP没有连接

If ftp1.Connect Then '连接FTP

ftp1.OpenManager() '如果连接成功,打开FTP客户端

Else

Messagebox.show("连接FTP失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

主题：FTP连接不上等候时间过长