[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 zaqmlp 于 2019-11-20 23:41 编辑
  1. @echo off
  2. mode con lines=3000
  3. set info=互助互利,支付宝扫码头像,感谢打赏
  4. rem 有问题,可加QQ956535081及时沟通
  5. title %info%
  6. set "folder=%~dp0"
  7. cd /d "%folder%"
  8. powershell -NoProfile -ExecutionPolicy bypass ^
  9.     $dic=New-Object 'System.Collections.Generic.Dictionary[string,Object]';^
  10.     $files=@(dir -liter '%folder%' -recurse^|?{($_.Name -ne '%~nx0') -and ($_ -is [System.IO.FileInfo])});^
  11.     for($i=0;$i -lt $files.length;$i++){^
  12.         $fname=$files[$i].Name.toLower();^
  13.         if(-not $dic.ContainsKey($fname)){^
  14.             [System.Collections.ArrayList]$arr=@();^
  15.             $dic.add($fname, $arr);^
  16.         };^
  17.         [void]$dic[$fname].add($files[$i]);^
  18.     };^
  19.     foreach($i in $dic.keys){^
  20.         $list=@($dic[$i]^|sort {$_.LastWriteTime} -des);^
  21.         write-host $list[0].FullName -ForegroundColor green;^
  22.         for($i=1;$i -lt $list.length;$i++){^
  23.             write-host $list[$i].FullName -ForegroundColor red;^
  24.             del -liter $list[$i].FullName -force;^
  25.         };^
  26.         write-host '';^
  27.     };
  28. :end
  29. echo;%info%
  30. pause
  31. exit
复制代码
1

评分人数

提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

回复 4# 星空独子

已修改
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

返回列表