以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么回事在窗口是好的呀  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124004)
--  作者：hongyefor
--  发布时间：2018/8/28 19:21:00
--  怎么回事在窗口是好的呀
.NET Framework 版本：2.0.50727.8793
Foxtable 版本：2018.3.9.1
错误所在事件：项目,BeforeOpenProject
详细错误信息：
未能找到路径“C:\\Users\\ZhuJianbin\\Documents\\Foxtable_Temporary\\0ebe74\\Attachments\\ftpip.ipls”的一部分。
 

BeforeOpenProject

在打开项目之前执行，可以在此进行一些环境上的判断，决定是否打开项目。

 

\'\'\'
Dim s As String = FileSys.ReadAllText(ProjectPath & "Attachments\\ftpip.ipls")
msgbox(s)
Dim arr() As String = s.Replace(vbcr,"").Split(vblf)
msgbox(arr.length)
For i As Integer = 0 To 1
    Dim ftp0 As New FTPClient
    msgbox(arr(i*3))
    msgbox(arr(i*3+1))
    msgbox(arr(i*3+2))
    ftp0.host=arr(i*3).Split("|")(1)
    msgbox(arr(i*3).Split("|")(1))
    ftp0.Account = arr(i*3+1).Split("|")(1)
    msgbox(arr(i*3+1).Split("|")(1))
    ftp0.password = arr(i*3+2).Split("|")(1)
    msgbox(arr(i*3+2).Split("|")(1))
   
    If  ftp0.Connect  Then
        Messagebox.Show(ftp0.host + "该服务器可用")
        For iy As Integer = 1 To 3
            Dim ftp1 As New FTPClient
            ftp1.host =ftp0.host
            Tables("表b").Current("第一列") = ftp0.host
            ftp1.Account = ftp0.Account
            Tables("表b").Current("第二列") = ftp0.Account
            ftp1.password = ftp0.password
            Tables("表b").Current("第三列") = ftp0.password
            msgbox(ftp1.host)
            msgbox(ftp1.Account)
            msgbox(ftp1.password )
        Next
        Exit For
    Else
        Messagebox.Show(ftp0.host + "该服务器不可用")
    End If
Next
--  作者：有点蓝
--  发布时间：2018/8/28 20:07:00
--  
BeforeOpenProject是不能使用ProjectPath 变量的，看帮助的用法ttp://www.foxtable.com/webhelp/scr/1615.htm

FileSys.GetParentPath(e.File)