主题：项目使用

一个项目放在金山快盘里边   当几个用户同时使用金山快盘打开这个项目  能不能在项目中添加代码  当一个用户使用时其他用户打不开改项目

beforeOpenProject事件

 

Dim f As String = ProjectPath & "temp.txt"
If FileSys.FileExists(f) = True Then
    Dim str As String = FileSys.ReadAllText(f)
    If str > "" Then
        e.cancel = True
    End If
    FileSys.WriteAllText(f, Date.now, False)
Else
    FileSys.WriteAllText(f, Nothing, False)
End If

 

beforeCloseProject事件

 

Dim f As String = ProjectPath & "temp.txt"

FileSys.WriteAllText(f, Nothing, False)

一个金山快盘账户 两个电脑同时登陆    项目文件 就在金山快盘里  加入老师给的代码  两边还是能同时打开项目

 我测试没问题，你看看temp.txt是否有值，有值以后，就应该不能再启动的的。

代码加入后  还是能同时打开 只不过是 关闭其中一个 就会生成temp.txt  文本文档  里边没有内容 

 

所有客户端都关闭，然后启动一个，再启动一个这样测试。

我现在是步骤是这样的：桌面上一个项目文件 加入老师给写的代码  关闭后生成一个temp.txt 文本文档 内容为空    在打开该项目文件     不关闭 在打开一次 按道理来说应该打不开的 但是第二次还是能打开

 我测试，没，问，题，你代码肯定写错位置了。

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目6.table

这个案例是有问题的，反复尝试都达不到效果，是版本的问题，还是代码逻辑问题？