以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  FTP连接不上等候时间过长  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145163)
--  作者：mayazql
--  发布时间：2020/1/10 11:17:00
--  FTP连接不上等候时间过长
用下面的代码，如果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
End If
--  作者：有点蓝
--  发布时间：2020/1/10 11:36:00
--  
这个暂时没有办法。