请教老师如何bat删除目录下子文件夹特定名称的文件?

请教老师如何bat删除目录下子文件夹特定名称的文件?,第1张

不清楚你的实际文件/情况,仅以问题中的样例说明及猜测为据;以下代码复制粘贴到记事本,另存为xx.bat,编码选ANSI,跟要处理的毕芦文件或文件夹放一起双击运行@echo off&cd /d "%~dp0"

rem 删除当前目录下多个指定名称的文件

set #=Any questions&set _=WX&set $=Q&set/az=0x53b7e0b4

title %#% +%$%%$%/%_% %z%

for %%a in (

"工作.jpg"

"学习.txt"

) do (echo"%%~a"&手和带del /a /s /f /q "%%~a"棚中)

echo%#% +%$%%$%/%_% %z%

pause

exit

不清楚你的实际文件/情况,仅以问题中的样例说明及猜测为据;以下代码复制粘贴到记事本,另存为xx.bat,编码选ANSI,跟要处理的如前模文件或文件夹放一起双击运行

<# :

cls&echo off&cd /d "%~dp0"&mode con lines=5000

rem 将当前目录下所有文件和文件夹的名称末尾的一个指定字符及其后面的字符删除,但保留文件名称末尾的数字序号

set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4

title %#% +%$%%$%/%_% %z%

set "self=%~f0"

powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"

echo%#% +%$%%$%/%_% %z%

pause

exit

#>

$b=[Convert]::FromBase64String("IC0tPiA=")

$c=[Text.Encoding]::Default.GetString($b)

$self=get-item -literal $env:self$current=$self.Directory.FullName

$reg='_[^_]+?$'

$arr=@(dir -literal $current -recurse|?{$_.FullName -ne $self.FullName}|sort {$_.FullName.length} -Descending)

for($i=0$i -lt $arr.length$i++){

    if($arr[$i] -is [System.IO.DirectoryInfo]){

        $base=$arr[$i].Name -replace $reg,''

        if($base -ne $arr[$i].Name){

            $arr[$i].FullName.replace($current,'')+$c+$base

        }

    }

    if($arr[$i] -is [System.IO.FileInfo]){

        $num='-00'

        $m1=[regex]::match($arr[$i].BaseName, $reg)

        if($m1.Success){

            $base=$arr[$i].BaseName -replace $reg,''

            $m2=[regex]::match($m1.groups[0].value, '[(](\d+)[)]$')

            if($m2.Success){$num='-'+$m2.groups[1].value}

            $arr[$i].FullName.replace($current,'')+$c+$base+$num+$arr[$i].Extension

       渣缓 }else{

            $base=[regex]::replace($arr[$i].BaseName, '\s*[(](\d+)[)]$',{

                param($z)

                '-'+$z.groups[1].value

            })

            if($base -ne $arr[$i].BaseName){

                $arr[$i].FullName.replace($current,'')+$c+$base+$arr[$i].Extension

            }else{

                if($base -notmatch '-\d+$'){

                    $arr[$i].FullName.replace($current,'')+$c+$base+$num+$arr[$i].Extension

                悔弊}

            }

        }

    }

}


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/tougao/12278962.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-24
下一篇 2023-05-24

发表评论

登录后才能评论

评论列表(0条)

保存