bat如何拷贝符合某个条件且时间最新的文件？

Question

bashCopy code@echo offset sourceFolder=D:\Desktop\bat-test\GOODset destFolder=D:\Desktop\bat-test\OKfor /r %sourceFolder% %%i in (*A001.BMP, *A002.BMP, *A003.BMP, *A004.BMP, *A005.BMP, *A006.BMP, *A007.BMP, *A008.BMP, *A009.BMP, *A010.BMP, *A011.BMP, *A012.BMP, *A013.BMP, *A014.BMP, *A015.BMP) do (copy "%%i" "%destFolder%")以上代码取到A003.bmp有两张图片，如何按照时间只拷贝最新的那个A003。

Answer 1

不清楚你的实际文件/情况，仅以问题中的样例说明及猜测为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI/GB2312<# :
cls&echo off&cd /d "%~dp0"&mode con lines=5000
rem 根据给出的部分文件名称，从一个指定文件夹下搜索/查找出符合条件且修改时间最新的文件，拷贝/复制到另一个新的指定文件夹里
set #=Any questions&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
set "current=%cd%"
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"
echo;%#% +%$%%$%/%_% %z%
pause
exit
#>
$oldfolder="D:\Desktop\bat-test\GOOD";

$newfolder="D:\Desktop\bat-test\OK";

$namepart=@"
*A001.bmp
*A002.bmp
*A003.bmp
*A004.bmp
*A005.bmp
*A006.bmp
*A007.bmp
*A008.bmp
*A009.bmp
*A010.bmp
*A011.bmp
*A012.bmp
*A013.bmp
*A014.bmp
*A015.bmp
"@;

$b=[Convert]::FromBase64String("IC0tPiA=");
$c=[Text.Encoding]::Default.GetString($b);
if(-not (test-path -literal $oldfolder)){write-host ('"'+$oldfolder+'" path error or not exist');exit;}
if(-not (test-path -literal $newfolder)){[void][IO.Directory]::CreateDirectory($newfolder);}
$arr=$namepart.trim("`r`n") -split '[\r\n]+';
$dic=New-Object 'System.Collections.Generic.Dictionary[string, object]';
$files=@(dir -literal $oldfolder -recurse|?{$_ -is [System.IO.FileInfo]});
for($i=0;$i -lt $files.length;$i++){
    for($j=0;$j -lt $arr.length;$j++){
        if($files[$i].Name -like $arr[$j]){
            if(-not $dic.ContainsKey($arr[$j])){
                $brr=New-Object -TypeName System.Collections.ArrayList;
                $dic.add($arr[$j], $brr);
            }
            [void]$dic[$arr[$j]].add($files[$i]);
            break;
        }
    }
}
foreach($k in $dic.Keys){
    $crr=@($dic[$k]|Sort-Object -Property LastWriteTime -Descending);
    $newfile=$newfolder.trimend('\')+'\'+$crr[0].Name;
    $crr[0].FullName+$c+$newfile;
}

追问

大师，按照这个确实可以找到唯一的图片，但是完成后OK文件夹为空，再麻烦指导下TKS！