以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [分享]定时器 几句代码实现自动备份项目文件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173639)

--  作者:cbt
--  发布时间:2021/12/9 11:22:00
--  [分享]定时器 几句代码实现自动备份项目文件
原理,使用定时器,执行代码,比如设置 10分钟 ,定时器使用秒为代码,所以10分钟 =600000
然后备份的目录使用 某网盘,监控自动上传到网盘!

说明:   d:\\狐表自动备份配置.txt  这个文档主要是方便以后多项目使用统一配置存储路径
 
以下内容只有回复后才可以浏览


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

--  作者:有点蓝
--  发布时间:2021/12/9 11:47:00
--  
多谢分享
--  作者:teng0731
--  发布时间:2021/12/9 14:40:00
--  
能否加一个是否为开发管理员的判定,如果是,则执行,不是的话,不执行代码
--  作者:cbt
--  发布时间: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 \'不是管理员,退出
....


--  作者:wky10652008
--  发布时间:2022/6/9 16:18:00
--  
学习
--  作者:lk15502
--  发布时间:2022/6/9 19:25:00
--  
1233
--  作者:飘过的巨蟹座
--  发布时间:2022/6/15 0:40:00
--  
kk
--  作者:新福星
--  发布时间:2022/6/15 6:35:00
--  
学习
--  作者:wzzhf
--  发布时间:2022/6/15 7:51:00
--  
谢谢分享
--  作者:comfortfoot
--  发布时间:2022/6/15 8:17:00
--  
学习、