[分享]制作升级文件20140815更新 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享]制作升级文件20140815更新

共有5973人关注过本帖树形打印复制链接主题：[分享]制作升级文件20140815更新

hzcaqjf

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：298 积分：4225 威望：0 精华：0 注册：2009/11/4 16:30:00

Post By：2014/7/19 9:31:00 [显示全部帖子]

前面加上以下代码,可省去手动创建"update"文件夹的麻烦:

If FileSys.DirectoryExists(ProjectPath & "update") = False Then

FileSys.CreateDirectory(ProjectPath & "update")

End If

另外,下面这行代码中的"2014-7-20"最好用foxtable版本变量代替.

可惜我不会写,有哪位高手指教一下?

Dim s As String = Format(PublishDate, "yyyy-MM-dd") & "|2014-07-20"

hzcaqjf

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：298 积分：4225 威望：0 精华：0 注册：2009/11/4 16:30:00

Post By：2014/7/19 10:22:00 [显示全部帖子]

查找资料后,已解决:

Dim s As String = Format(PublishDate, "yyyy-MM-dd") & "|" & Format(CDate(applicationvertion),"yyyy-MM-dd")

hzcaqjf

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：298 积分：4225 威望：0 精华：0 注册：2009/11/4 16:30:00

回复：（yyzlxc）此段代码，可以达到5楼的要求。Dim F... 发帖心情

Post By：2014/7/19 10:37:00 [显示全部帖子]

谢谢您的热心帮助!

主题：[分享]制作升级文件20140815更新