| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- MakeDir (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179845) |
|
| -- 作者：huhu -- 发布时间：2022/9/13 20:30:00 -- MakeDir 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
|
|
| -- 作者：有点蓝 -- 发布时间：2022/9/13 20:50:00 --
|
|
| -- 作者：huhu -- 发布时间：2022/9/13 20:52:00 -- msgBox(4) \'这里第一次会弹吗？ ------------------------------- 第一次不弹，查看没有创建目录。 第二次弹，创建目录成功。
|
|
| -- 作者：有点蓝 -- 发布时间：2022/9/13 20:54:00 -- 1、2、3、5第一次有没有弹？ |
|
| -- 作者：huhu -- 发布时间：2022/9/13 20:56:00 -- 我发现规律了。 间隔一次弹。意思就是第一次不弹，第二次弹，第三次不弹，第四次弹....
|
|
| -- 作者：有点蓝 -- 发布时间：2022/9/13 21:03:00 -- 没看懂。每次执行上面所有的msgBox，有哪些弹出来，哪些没有弹出来？ |
|
| -- 作者：huhu -- 发布时间：2022/9/13 21:12:00 -- 解决了。点开...需要vars("ljwjj")对这个检查一下值。 CellButtonClick If e.Col.Name = "附件" Then e.Cancel = True vars("ljwjj") = e.Row("附件") Forms("需求文件上传FTP").open End If
|
|
| -- 作者：huhu -- 发布时间：2022/9/13 21:25:00 -- 可是当切换到外网，只能弹出1,2.3,后面弹不出，然后系统FT卡死。 这个原因是不是和ftp的pasv端口范围有关？
|
|
| -- 作者：有点蓝 -- 发布时间：2022/9/13 21:31:00 -- 应该是 |