为新建文件加上当前目期。

Strator

看到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)

2024-3-17 17:18 上传

点击文件名下载附件

食用。

.版本 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, , )
    .如果真结束

.判断结束

结束 ()

Strator

wyesheng 发表于 2024-3-17 20:25
这个有没有可能通过BAT实现呢~

思路来源连接就是bat的，bat是可以实现。

破解专用户

爱飞的猫 发表于 2024-3-19 04:07
[md]另存为 `.reg` 文件后导入即可恢复默认特性：

```reg

大佬如此厉害，我想请教2个问题
1，使用了您这个reg,他那第二个BAT，再使用就失效了，第二个内容如下
---------------------
@ECHO OFF
SET dt=%date:~0,4%%date:~5,2%%date:~8,2%%time:~0,2%%time:~3,2%%time:~6,2%
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\NamingTemplates" /v RenameNameTemplate /t REG_SZ /d %dt%--%%s% /f
--------------------------------------
这个是新建文件夹用的，但是我们正常都不是新建文件夹吧，就来了第二个问题
就是无论，我在PS，还是在WORD里，新建一个文件，做好以后，点击保存，这个时候，出来的对话框里能不能带上这个日期时间，此时默认的就是，文件-保存-新建文档（PS里是未命名1）【能不能让这些前面自带上日期？变成20240319未命名1类的？】
可能大家觉得这个功能没有用，我们做图的非常有用，我们给人做的图片，现在8点43分的图，保存了，人家9点要改，再保存时就变成了XX2，XX3类的，然后客户反过来，傍晚6点又说，我还是要早上8.43分的那个稿子，那个好看些……这时，日期和日间线就起到大作用了

sai609

给pdf或者托做ocr识别，且自动重名，这代码能实现这需求吗？

飘水

下载试试，感谢楼主

unlukas

感觉很实用，适合大学生

wyesheng

这个有没有可能通过BAT实现呢~

zhufuan

谢谢老师的分享，好实用

zgwbbt

崇拜大佬,受教受教

liutao0474

非常奈斯，感谢LZ分享！

tonyh0

自动化总是好的，支持楼主。

HarleyQuinn

感谢LZ分享。