Foxtable(狐表)用户栏目专家坐堂 → ftp连接的问题


  共有3307人关注过本帖平板打印复制链接

主题:ftp连接的问题

帅哥哟,离线,有人找我吗?
scott518
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:292 积分:2488 威望:0 精华:0 注册:2011/11/4 17:32:00
ftp连接的问题  发帖心情 Post By:2014/4/8 14:07:00 [只看该作者]

下面代码执行时正常。但换成红色的反而不正确了,为什么?谢谢!
Dim ftp As New FTPClient
ftp.Host = "abc.cn"
ftp.Account = "abc"
ftp.Password = "abc123"

If ftp.Connect Then 
Else '如果FTP没有连接,用备用域名连接
    ftp.Host = "abc.net"
    ftp.Account = "abc"
    ftp.Password = "abc123"
    If ftp.Connect Then 
    Else  '仍然连接不上FTP提示并中止
        MessageBox.Show("FTP服务器连接失败!")
        Return
    End If
End If

为会换用下面代码后就总提示“FTP服务器连接失败!” 实际上ftp服务器一直都是可以正常连接的。

If ftp.Connected = False Then '如果FTP没有连接,用备用域名连接
    ftp.Host = "abc.net"
    ftp.Account = "abc"
    ftp.Password = "abc123"
    If ftp.Connected = False Then '仍然连接不上FTP提示并中止
        MessageBox.Show("FTP服务器连接失败!")
        Return
    End If
End If


 回到顶部