主题：Project文件夹里的文件夹和文件能否释放到外面？

beforeOpenProject事件，编写代码拷贝出去，如

 

If e.File.EndsWith(".FoxEx") Then
    Dim ppath As String = FileSys.GetParentPath(e.File)
    Dim apath As String = ApplicationPath   ' FileSys.GetParentPath(ppath)
    If FileSys.FileExists(ppath & "\xxx.dll") Then
        FileSys.CopyFile(ppath & "\xxx.dll", APath & "\xxx.dll", True)

        FileSys.DeleteFile(ppath & "\xxx.dll",2,2)
    End If
End If

1、文件都拷贝出去了没有？

 

2、如果都拷贝出去了，重新打开项目，能否运行？

logform.txt、logform.jpg，是放在project里面的，不需要拷贝出去。

你试试在beforeOpenProject，拷贝完以后，重启项目试试

 

FileSys.DeleteDirectory(ppath & "\Voice",2,2)

application.Restart

 

那你就做个提示吧。比如

 

msgbox("系统配置完毕，请重启项目")

e.cancel = true

 

按照9楼修改，也是还报错？

 

写在你最后一个拷贝的后面，不就好了？拷贝的时候才提示，那就只提示一次。

做个例子发上来测试。

这句代码有问题，移动文件夹后，文件夹不存在，如果你再删除，自然会报错。

 

去掉后我测试正常。

 

FileSys.MoveDirectory(ppath & "\Voice", APath & "\Voice", True)
FileSys.DeleteDirectory(ppath & "\Voice",2,2)