如果ftp服务的断了，导致登录ftp失败。能在下面的内容函数给出失败的msgbox吗？怎么验证ftp链接失败？
If vars("ljwjj") = "" Then
Dim ftp As New FtpClient
If Network.Ping("X.X.X.X", 1000) = False Then
ftp.Host = "X.X.X.X"
Else
ftp.Host = "X.X.X.X"
End If
ftp.Account = "xxx"
ftp.Password = "xxx"
ftp.ChangeDir("/需求文档/")
Dim lj As String = "/需求文档/" & Tables("需求明细表").current("需求编号")
If ftp.DirExists(lj) = False Then '不存在临时版本编号目录时先创建临时版本编号目录
ftp.MakeDir(lj)
End If
Tables("需求明细表").current("附件") = lj
vars("ljwjj") = lj
ftp.Close
Else
vars("ljwjj") = Tables("需求明细表").current("附件")
Functions.Execute("xqwjlistview")
End If
加好友 
发短信
Post By：2022/10/10 11:39:00 [只看该作者]
