level 2
有没有大佬，能否给弄个小脚本
2022年04月08日 06点04分
level 9
不清楚你的实际文件/情况，仅以问题中的说明及猜测为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起双击运行
<# :
cls&echo off&cd /d "%~dp0"
rem 查找并删除指定天数以前的文件
set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
set "self=%~f0"
powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText(\"%~f0\",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
echo;%#% +%$%%$%/%_% %z%
pause
exit
#>
$ago=-3;
$recurse=$true;
$agodate=(get-date).AddDays($ago).ToString('yyyy-MM-dd');
$self=get-item -literal $env:self;
$files=@(dir -literal $self.Directory.FullName|?{($_.Name -ne $self.Name) -and ($_ -is [System.IO.FileInfo])}|sort {$_.LastWriteTime} -Descending);
for($i=0;$i -lt $files.length;$i++){
$wd=$files[$i].LastWriteTime.ToString('yyyy-MM-dd');
if($wd -le $agodate){'['+$wd+']'+$files[$i].FullName.SubString($self.Directory.FullName.length);}
}
2022年04月08日 16点04分
3
<# :
cls&echo off&cd /d "%~dp0"
rem 查找并删除指定天数以前的文件
set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
set "self=%~f0"
powershell -NoProfile -ExecutionPolicy bypass "[IO.File]::ReadAllText(\"%~f0\",[Text.Encoding]::GetEncoding('GB2312'))|Invoke-Expression"
echo;%#% +%$%%$%/%_% %z%
pause
exit
#>
$ago=-3;
$recurse=$true;
$agodate=(get-date).AddDays($ago).ToString('yyyy-MM-dd');
$self=get-item -literal $env:self;
$files=@(dir -literal $self.Directory.FullName|?{($_.Name -ne $self.Name) -and ($_ -is [System.IO.FileInfo])}|sort {$_.LastWriteTime} -Descending);
for($i=0;$i -lt $files.length;$i++){
$wd=$files[$i].LastWriteTime.ToString('yyyy-MM-dd');
if($wd -le $agodate){'['+$wd+']'+$files[$i].FullName.SubString($self.Directory.FullName.length);}
}