If vars("ljwjj") = "" Then
Dim ftp As New FtpClient
If Network.Ping("192.168.1.72", 1000) = False Then
ftp.Host = "180.169.230.117"
Else
ftp.Host = "192.168.1.72"
End If
ftp.Account = "XXX"
ftp.Password = "XXXXXX"
ftp.ChangeDir("/需求文档/")
Dim lj As String = "/需求文档/" & Tables("需求明细表").current("需求编号")
msgBox(lj)------'第一次不弹这个msgbox(lj),第二次才弹这个msgbox(lj),不应该每次执行到这都要弹出来么。当不弹msgbox的情况下，就不会创建目录MakeDir(lj)，这是咋回事。
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/9/13 20:30:00 [只看该作者]
