Foxtable(狐表) → 用户栏目 → 专家坐堂 → Project文件夹里的文件夹和文件能否释放到外面？


  共有4578人关注过本帖树形打印复制链接

主题：Project文件夹里的文件夹和文件能否释放到外面？
帅哥哟，离线，有人找我吗？
ycwk
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1218 积分：8451 威望：0 精华：0 注册：2016/2/2 21:52:00 		Project文件夹里的文件夹和文件能否释放到外面？  发帖心情 Post By：2018/3/23 16:31:00 [只看该作者]

我在发布程序的时候，添加附件处，增加了两个文件夹和几个文件，升级结束后的程序Project 文件夹里面都成功包含了，问题是，如何在升级结束后把这些文件释放到外面的Publish文件夹中呢？

图片点击可在新窗口打开查看此主题相关图片如下：123.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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

 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1218 积分：8451 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：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)


msgbox(1)-msgbox(6)都可以正确弹出  但启动后报错

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/29 17:01:00 [只看该作者]

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

 

2、如果都拷贝出去了，重新打开项目，能否运行？
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1218 积分：8451 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2018/3/29 17:04:00 [只看该作者]

都拷出去了，重新打开项目，可以运行，但没有login.jpg的封面了，以开发的小窗登录的

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/29 17:23:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/29 17:25:00 [只看该作者]

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

 

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

application.Restart
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1218 积分：8451 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2018/3/29 17:36:00 [只看该作者]

不行，第一次运行会把文件成功拷贝出来。   但会报上面那个错!

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/29 17:50:00 [只看该作者]

以下是引用ycwk在2018/3/29 17:36:00的发言：
不行，第一次运行会把文件成功拷贝出来。   但会报上面那个错!

 

那你就做个提示吧。比如

 

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

e.cancel = true
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1218 积分：8451 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2018/3/29 18:00:00 [只看该作者]

这个错误就只能任它存在了？

 回到顶部
总数 18 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 4 次数据查询