- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- Project文件夹里的文件夹和文件能否释放到外面？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116384)
-- 发布时间：2018/3/23 16:31:00
-- Project文件夹里的文件夹和文件能否释放到外面？
我在发布程序的时候，添加附件处，增加了两个文件夹和几个文件，升级结束后的程序Project 文件夹里面都成功包含了，问题是，如何在升级结束后把这些文件释放到外面的Publish文件夹中呢？
此主题相关图片如下：123.png
-- 发布时间：2018/3/23 16:58:00
--
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
-- 发布时间：2018/3/29 16:32:00
--
beforeOpenProject 代码如下：
msgbox(0)
If e.File.EndsWith(".FoxEx") Then \'正在打开的文件是否以FoxEx为后缀
Dim ppath As String = FileSys.GetParentPath(e.File)
Dim apath As String = ApplicationPath \' FileSys.GetParentPath(ppath)
If FileSys.FileExists(ppath & "\\FileList.txt") Then
FileSys.CopyFile(ppath & "\\FileList.txt", APath & "\\FileList.txt", True)
FileSys.DeleteFile(ppath & "\\FileList.txt",2,2)
End If
End If
msgbox(1)
If e.File.EndsWith(".FoxEx") Then \'正在打开的文件是否以FoxEx为后缀
Dim ppath As String = FileSys.GetParentPath(e.File)
Dim apath As String = ApplicationPath \' FileSys.GetParentPath(ppath)
If FileSys.FileExists(ppath & "\\logform.txt") Then
FileSys.CopyFile(ppath & "\\logform.txt", APath & "\\logform.txt", True)
FileSys.DeleteFile(ppath & "\\logform.txt",2,2)
End If
End If
msgbox(2)
If e.File.EndsWith(".FoxEx") Then \'正在打开的文件是否以FoxEx为后缀
Dim ppath As String = FileSys.GetParentPath(e.File)
Dim apath As String = ApplicationPath \' FileSys.GetParentPath(ppath)
If FileSys.FileExists(ppath & "\\Login.jpg") Then
FileSys.CopyFile(ppath & "\\Login.jpg", APath & "\\Login.jpg", True)
FileSys.DeleteFile(ppath & "\\Login.jpg",2,2)
End If
End If
msgbox(3)
If e.File.EndsWith(".FoxEx") Then \'正在打开的文件是否以FoxEx为后缀
Dim ppath As String = FileSys.GetParentPath(e.File)
Dim apath As String = ApplicationPath \' FileSys.GetParentPath(ppath)
If FileSys.FileExists(ppath & "\\RDPdemo.dll") Then
FileSys.CopyFile(ppath & "\\RDPdemo.dll", APath & "\\RDPdemo.dll", True)
FileSys.DeleteFile(ppath & "\\RDPdemo.dll",2,2)
End If
End If
msgbox(4)
If e.File.EndsWith(".FoxEx") Then \'正在打开的文件是否以FoxEx为后缀
Dim ppath As String = FileSys.GetParentPath(e.File)
Dim apath As String = ApplicationPath \' FileSys.GetParentPath(ppath)
If FileSys.FileExists(ppath & "\\qnviccub.dll") Then
FileSys.CopyFile(ppath & "\\qnviccub.dll", APath & "\\qnviccub.dll", True)
FileSys.DeleteFile(ppath & "\\qnviccub.dll",2,2)
End If
End If
msgbox(5)
If e.File.EndsWith(".FoxEx") Then \'正在打开的文件是否以FoxEx为后缀
Dim ppath As String = FileSys.GetParentPath(e.File)
Dim apath As String = ApplicationPath \' FileSys.GetParentPath(ppath)
If FileSys.DirectoryExists(ppath & "\\Voice") Then
FileSys.MoveDirectory(ppath & "\\Voice", APath & "\\Voice", True)
FileSys.DeleteDirectory(ppath & "\\Voice",2,2)
End If
End If
msgbox(6)
此主题相关图片如下：1.png
-- 发布时间：2018/3/29 17:01:00
--
1、文件都拷贝出去了没有？
2、如果都拷贝出去了，重新打开项目，能否运行？
-- 发布时间：2018/3/29 17:04:00
--
都拷出去了，重新打开项目，可以运行，但没有login.jpg的封面了，以开发的小窗登录的
-- 发布时间：2018/3/29 17:23:00
--
logform.txt、logform.jpg，是放在project里面的，不需要拷贝出去。
-- 发布时间：2018/3/29 17:25:00
--
你试试在beforeOpenProject，拷贝完以后，重启项目试试
FileSys.DeleteDirectory(ppath & "\\Voice",2,2)
application.Restart
-- 发布时间：2018/3/29 17:36:00
--
不行，第一次运行会把文件成功拷贝出来。 但会报上面那个错!
-- 发布时间：2018/3/29 17:50:00
--
以下是引用ycwk在2018/3/29 17:36:00的发言：
不行，第一次运行会把文件成功拷贝出来。 但会报上面那个错!
不行，第一次运行会把文件成功拷贝出来。 但会报上面那个错!
那你就做个提示吧。比如
msgbox("系统配置完毕，请重启项目")
e.cancel = true
-- 发布时间：2018/3/29 18:00:00
--
这个错误就只能任它存在了？