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


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

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


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

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

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


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
ycwk
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2018/3/29 17:04:00 [显示全部帖子]

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

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


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2018/3/29 17:36:00 [显示全部帖子]

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

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


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2018/3/29 18:00:00 [显示全部帖子]

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

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


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2018/3/30 8:39:00 [显示全部帖子]

9楼的代码放在什么地方？ 不能随便放吧，不然启动时就会提示

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


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2018/4/3 18:49:00 [显示全部帖子]



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(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)
        'application.Restart
        
        msgbox("系统配置完毕,请重启项目")
        e.cancel = True
    End If


End If


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


加好友 发短信
等级：六尾狐 帖子：1228 积分：8561 威望：0 精华：0 注册：2016/2/2 21:52:00 		  发帖心情 Post By：2018/4/4 11:06:00 [显示全部帖子]

做了个demo,帮忙指导下
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:搬文件夹的demo.rar


发布后的项目，文件夹搬完后会报错
[此贴子已经被作者于2018/4/4 11:06:57编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08691 秒, 6 次数据查询