@echo off
echo @echo off>"C:\Program Files\文件名添加创建日期.bat"
echo for /f "skip=1 tokens=1-3 delims=-/ " %%%%a in ('dir /tc "%%1"^^^|findstr ":"') do set "getdate=%%%%a-%%%%b-%%%%c">>"C:\Program Files\文件名添加创建日期.bat"
echo ren %%1 "%%~n1_%%getdate%%%%~x1">>"C:\Program Files\文件名添加创建日期.bat"
reg add "HKCR\*\shell\文件名添加创建日期\Command" /ve /t REG_SZ /d "\"C:\Program Files\文件名添加创建日期.bat\" \"%%1\"" /f
echo 建立“文件名添加创建日期”右键菜单成功！
pause
复制代码

@echo off
cd /d "D:\test"
for /f "delims=" %%i in ('dir /a-d /b') do (
for /f "skip=1 tokens=1-3 delims=-/ " %%a in ('dir /tc "%%i"^|findstr ":"') do (
ren %%i "%%~ni_%%a-%%b-%%c%%~xi"
)
)
echo 更名完成！
pause
复制代码

@echo off
set "srcDir=D:\Test"

call :Lp "%srcDir%\"
pause & exit/b

:Lp
set "p=%~p1"
set "w=wmic DataFile where "Drive='%~d1' and Path='%p:\=\\%'" get CreationDate^,Name"
for /f "tokens=1*" %%a in ('%w% 2^>nul^|findstr /b [0-9]') do (
        set "D=%%a"
        for /f "delims=" %%c in ("%%b") do (
                set "file=%%~fc"
                set "Name=%%~nc"
                setlocal enabledelayedexpansion
                echo,ren "!file!" "!Name!_!D:~,4!-!D:~4,2!-!D:~6,2!%%~xc"
                endlocal
        )
)
for /d %%a in ("%~1*") do call :Lp "%%a\"
复制代码

1>1/* :      www.bathome.net
@echo off
dir /a-d /b *.txt | cscript -nologo -e:jscript "%~0"
pause & exit /b
*/

var files = WScript.StdIn.ReadAll().split(/\r\n/)
var fso = new ActiveXObject("Scripting.FileSystemObject")

for(var i in files){
	var file = fso.GetFile(files[i])
	var tc = new Date(file.DateCreated)
	file.Move(fso.GetBaseName(file.Name) + '_' + tc.getFullYear() + '-' + (tc.getMonth()+1) + '-' + tc.getDate() + '.' + fso.GetExtensionName(file.Name))
}
复制代码

dir *.pdf | ren -newname {$_.basename + $_.CreationTime.toString('_yyyy-M-d') + $_.Extension}
复制代码