port = parts(4) << 8 ‘确定数据端口数 port = port + parts(5) s =
New Socket(AddressFamily.InterNetwork, SocketType.Stream,
ProtocolType.Tcp) ep = New
IPEndPoint(Dns.Resolve(ipAddress).AddressList(0),
port) Try s.Connect(ep) Catch ex As Exception MessageString
= m_sReply Throw New IOException("Cannot connect to remote
server.") ‘如果你不能链接到特定的FTP服务器,也就是说,将其布尔值设置为false。 flag_bool =
False End Try