好友
阅读权限10
听众
最后登录1970-1-1
|
看到https://www.52pojie.cn/forum.php?mod=viewthread&tid=1370414&highlight=%D0%C2%BD%A8%CE%C4%BC%FE 用HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\NamingTemplates\RenameNameTemplate给新建文件夹自动加上创建日期,
感觉对我很实用,就写了个易语言版的,加计划任务,每天0:01分自动运行一次,运行完进程退出就好。
源码在此,自行编译,计划任务加加个启动参数为1。懒得编译的,下载
文件名带日期.rar
(300.6 KB, 下载次数: 41)
食用。
.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 启动, 文本型, , "0"
.子程序 __启动窗口_创建完毕
取命令行 (启动)
.判断开始 (取数组成员数 (启动) > 0)
.判断开始 (启动 [1] = “1”)
重命名 ()
.默认
.判断结束
.默认
.判断结束
.子程序 重命名
.局部变量 逻辑变量, 逻辑型
.局部变量 文本变量, 文本型
.局部变量 新文件名, 文本型
.局部变量 旧文件名, 文本型
逻辑变量 = 注册项是否存在 (#现行用户, 文本变量)
' HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\NamingTemplates
文本变量 = “SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\NamingTemplates\RenameNameTemplate”
新文件名 = 到文本 (取日期 (取现行时间 ())) + “ ” + “%s”
旧文件名 = 取文本注册项 (#现行用户, 文本变量, )
.判断开始 (0 = 文本比较 (新文件名, 旧文件名, 假))
' 信息框 (“一致”, 0, , )
.默认
.如果真 (写注册项 (#现行用户, 文本变量, 新文件名))
' 信息框 (“写入成功”, 0, , )
.如果真结束
.判断结束
结束 () |
免费评分
-
查看全部评分
|
发帖前要善用【论坛搜索】功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。 |
|
|
|
|