看2楼帮助,结合3楼计算时间的方式.
Connect
连接FTP,如果连接成功,返回True,否则返回False。
FTP默认是自动判断并连接的,正如前面的示例代码,并不需要先连接FTP再进行操作。
如果愿意,也可以Connected属性判断FTP是否已经连通,用Connect方法显式连接FTP。
示例
Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
ftp1.Changedir("\photo")
If ftp1.Connected = False '如果FTP没有连接
dim d1 as date =date.now
If ftp1.Connect Then '连接FTP
MessageBox.Show("耗时: " & (Date.Now - d1).TotalSeconds & "秒")
ftp1.OpenManager() '如果连接成功,打开FTP客户端
Else
Messagebox.show("连接FTP失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
Close