批处理将文件重命名为文件修改时间(精确到秒)

powerbat

支持拖放、支持子目录、支持设置要修改的文件类型（这些功能很简单，可自行添加代码），兼容特殊字符。

1. @echo off &rem powerbat @ www.bathome.net 批处理之家 bat脚本
   
2. set "type=jpg,png" &rem 文件类型
   
3. set "folder=%~dp0." &rem 文件所在目录
   
4. set "SubDir=0" &rem 是否包含子目录
   
5. 
   
6. wmic.exe /? >nul 2>&1 || (echo no wmic, exit& pause&exit/b)
   
7. 
   
8. if "%~1" neq "" set "folder=%~1"
   
9. for %%a in ("%folder%") do set "FileD=%%~da" & set "FileP=%%~pnxa"
   
10. 
    
11. goto skip
    
12. rem 先重命名一次，加一段文件名中不会出现的字符串，以防可能的文件名重复问题。
    
13. set "ext=%type%" & set "sub="
    
14. if "%type%" neq "*" if "%type%" neq "*.*" set "ext=*.%type:,= *.%"
    
15. if "%SubDir%" neq "0" set "sub=/s"
    
16. for /f "delims=" %%a in ('dir /b %sub% %ext%') do (
    
17.     ren "%%~fa" "powerbat@bathome_%%~nxa"
    
18. )
    
19. :skip
    
20. 
    
21. set "part=%FileP:\=\\%"
    
22. set "part=%part:[=[[]%"
    
23. set "part=%part:_=[_]%"
    
24. setlocal enableDelayedExpansion
    
25. set "part=!part:%%=[%%]!"
    
26. endlocal& set "part=%part%"
    
27. if "%type%" neq "*" if "%type%" neq "*.*" (
    
28.     set "ext=and (extension='%type:,=' OR extension='%')"
    
29. ) else set "ext="
    
30. if "%SubDir%"=="0" (
    
31.     set "Filter=drive='%FileD%' and path='%FileP:\=\\%' %ext%"
    
32. ) else (
    
33.     set "Filter=drive='%FileD%' and path LIKE '%part%%%' %ext%"
    
34. )
    
35. (set wmic=wmic.exe datafile where "%Filter%" get name^,LastModified)
    
36. 
    
37. for /f "tokens=1,3* delims=.+ " %%a in ('%%wmic%%') do (
    
38.     set "t=%%a"
    
39.     rem 用for过滤掉wmic结果中的不可见字符
    
40.     for /f "delims=" %%i in ("%%c") do (
    
41.         set "f=%%~fi"
    
42.         set "p=%%~dpi"
    
43.         set "n=%%~ni"
    
44.         set "x=%%~xi"
    
45.         setlocal enableDelayedExpansion
    
46.         set "t=!t:~,4!-!t:~4,2!-!t:~6,2! !t:~8,2!.!t:~10,2!.!t:~12!"
    
47.         if not exist "!p!!t!!x!" (
    
48.             ren "!f!" "!t!!x!"
    
49.         ) else  if "!t!" neq "!n!" (
    
50.             set n=1
    
51.             for %%u in ("!p!!t!_*!x!") do set /a n+=1
    
52.             ren "!f!" "!t!_!n!!x!"
    
53.         )
    
54.         endlocal
    
55.     )
    
56. )
    
57. pause

复制代码

批处理在特殊字符方面有天生缺陷，所以用批处理要做到兼容特殊字符就有点吃力，效率不怎么高。
重命名时要考虑到的一个重点是判断是否存在重复文件名，由于cmd没有while循环语句，要达到类似效果只能借助标签，但这样会进一步降低效率。
在兼顾效率的基础上，这是采用的方法是先将所有文件修改为别的名字，彻底排除重复的可能性。（默认没有开启，将goto skip去掉即可启用）。

（批处理做这种事真是弱暴了。。。但我不想用vbs，虽然我会）

powerbat

如果文件数量较多(如几千个)，wmic会出错：
代码 = 0x80020009
说明 = 发生意外。
设备 = Dispatch

有可能是wmic分配的内存不够用。
看来wmic也太矬了。。。
vbs版
http://www.bathome.net/thread-15803-1-1.html

lllsoslll

某些情况下，同一时间内修改的文件，同一目录内可能很多；

如果有重命名，修改别的文件的名字，来给要命名的文件腾地方，若有快捷方式，或者文件之间存在关联性什么的，就被破坏了；

对程序来说，你只有修改你要访问的文件的权利，谁影响你的访问你就干掉谁，是流氓作风，

用这种方式如何？
201204151808[1].txt
201204151808[2].txt
...

Rocmind

非常有用，好多摄像文件，每次皆是从1，2，3，开始命令，这个批处理完全解决了命名重复的问题

kimpppg

重命名为创建时间是改哪一行。

Batcher

回复 5# kimpppg


    第35行LastModified修改为CreationDate

newswan

powershell

1. Param(
   
2.         [Parameter(ValueFromRemainingArguments)]
   
3.         [string[]]$Path
   
4. )
   
5. 
   
6. if ([string]::IsNullOrEmpty($Path)) {
   
7.         $Path = "D:\Downloads"
   
8. }
   
9. $ext = "*.apk"
   
10. $isRecurse = $False
    
11. 
    
12. 
    
13. if ( $isRecurse ) {
    
14.         $command = { Get-ChildItem -Filter $ext -File -Recurse }
    
15. } else {
    
16.         $command = { Get-ChildItem -Filter $ext -File }
    
17. }
    
18. 
    
19. 
    
20. $Path | Invoke-Command -ScriptBlock $command | ForEach-Object {
    
21.                 write-host ( '' + $_.LastWriteTime + " : " + $_.FullName )
    
22.                 Rename-Item -Path $_.FullName -NewName ( '' + $_.LastWriteTime.ToString("yyyy-MMdd-HHmmss") + $_.Extension )
    
23.         }
    

复制代码