以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  内部函数怎么msgbox？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180239)
--  作者：huhu
--  发布时间：2022/10/10 11:39:00
--  内部函数怎么msgbox？
如果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
--  作者：有点蓝
--  发布时间：2022/10/10 11:41:00
--  
if ftp.Connect then
……
else
msgbox("失败")
endif