主题：[求助 ]局域网内的FTP自动升级

If Syscmd.Project.Update(False,False) = False Then '如果没有升级

    If Forms("业务管理窗口").Opened Then

        '    Messagebox.Show("窗口1已经打开!")

    Else

        Forms("业务管理窗口").Open

        '    MessageBox.Show("正在升级系统,请稍候......")

    End If

    '不是开发者隐藏表头

    If User.Type <> UserTypeEnum.Developer

        TableCaptionVisible = False

    End If

    

    Output.Logs("登录日志").Add(User.Name & "  " & Date.Now )

    'Output.Logs("登录日志").Save("\\Data-server\数据中心\Attachments\log.txt",True)

    Output.Logs("登录日志").Save("\\WIN-DBMS\数据中心\Attachments\log.txt",True)

    Output.Logs("登录日志").Clear

End If