[分享]定时器几句代码实现自动备份项目文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享]定时器几句代码实现自动备份项目文件

共有29650人关注过本帖树形打印复制链接主题：[分享]定时器几句代码实现自动备份项目文件

cbt

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

加好友

发短信

等级：二尾狐帖子：574 积分：4264 威望：0 精华：0 注册：2015/5/13 8:32:00

[分享]定时器几句代码实现自动备份项目文件 发帖心情

Post By：2021/12/9 11:22:00 [只看该作者]

原理，使用定时器，执行代码，比如设置 10分钟 ,定时器使用秒为代码，所以10分钟 =600000

然后备份的目录使用某网盘，监控自动上传到网盘！

说明： d:\狐表自动备份配置.txt 这个文档主要是方便以后多项目使用统一配置存储路径

以下内容只有回复后才可以浏览

[此贴子已经被作者于2022/6/9 15:31:31编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：112375 积分：572137 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/12/9 11:47:00 [只看该作者]

多谢分享

teng0731

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

加好友

发短信

等级：一尾狐帖子：459 积分：3471 威望：0 精华：0 注册：2011/6/6 11:22:00

Post By：2021/12/9 14:40:00 [只看该作者]

能否加一个是否为开发管理员的判定，如果是，则执行，不是的话，不执行代码

cbt

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

加好友

发短信

等级：二尾狐帖子：574 积分：4264 威望：0 精华：0 注册：2015/5/13 8:32:00

Post By：2021/12/9 15:00:00 [只看该作者]

可以的，在最前面加个判断即可

Dim file As String = ProjectFile
If file.EndsWith(".Table") = False AndAlso file.EndsWith(".foxdb") = False Then Return '已经发布后的程序不是这2个后缀名,可以退出
If User.Type <> UserTypeEnum.Administrator Then Return '自定义不是开发者,退出
'If User.Type <> UserTypeEnum.Administrator Then Return '不是管理员,退出

....