[日期时间] 批处理如何将文件的最后修改时间按指定格式添加到文件名的后面？

@echo off&pushd %~dp0&call set "ext=txt"
for /f "delims=" %%1 in ('dir/a-d/b *.%ext%')do for /f "tokens=1-5 delims=:/- " %%2 in ("%%~t1")do ren %%1 %%~n1%%2年%%3月%%4日%%5点%%6分%%~x1
复制代码

@dir /b /a-d | hash /g con /do:"echo ren ""%s"" ""%s%s.%s""",file,@name:base,tw:"%Y年%m月%d日%H时%M分",@name:ext
复制代码

setlocal enabledelayedexpansion&for %%a in (*.txt) do (set "n=%%~na"&set "t=%%~ta"&ren "%%a" "!n:~0,-17!!t:~0,4!年!t:~5,2!月!t:~8,2!日!t:~-5,2!点!t:~-2!分%%~xa")
复制代码

dir *.txt | ren -newName {
    $d = $_.LastWriteTime.ToString('yyyy年MM月dd日HH点mm分');
    $_.Name -replace '(\d{4}年\d+月\d+日\d+点\d+分)?(\.txt)$', ($d + '$2')
}
复制代码

/*&cls
@echo off
dir /a-d /b *.txt|cscript -nologo -e:jscript "%~f0"
pause&exit
*/

function az(n){return n<10?'0'+n:n;}

function FormatDate(str){
    var dlm = new Date(str);
    var y = dlm.getFullYear()+'年';
    var M = az(dlm.getMonth()+1)+'月';
    var d = az(dlm.getDate())+'日';
    var h = az(dlm.getHours())+'时';
    var m = az(dlm.getMinutes())+'分';
    return y+M+d+h+m;
 }

var fso = new ActiveXObject('Scripting.FileSystemObject');
while(!WSH.StdIn.AtEndOfStream){
    var file = fso.GetFile(WSH.StdIn.ReadLine());
    var dlm = FormatDate(file.DateLastModified);
    if(/(\d{4}年\d+月\d+日\d+时\d+分)\.[^\.]+$/.test(file.Name)){
        if(RegExp.$1 != dlm){
            file.Name = file.Name.replace(/(.+)\d{4}年\d+月\d+日\d+时\d+分(\.[^\.]+)/, '$1'+dlm+'$2');
        }
    }else{
        file.Name = file.Name.replace(/(.+)(\.[^\.]+)/, '$1'+dlm+'$2')
    }
}
WSH.echo('Done');
复制代码