下面代码执行时正常。但换成红色的反而不正确了,为什么?谢谢!
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