[文件操作] 文件删除的批处理求改进

@echo off
chcp 65001
>>%cd%\clean.txt echo %DATE%
set "dsk=d e g h i j k l m n o p q r s t u v w x y z"
for %%a in (%dsk%) do if exist %%a: call:001 %%a:
exit

:001
>>f:\temp\clean.txt del /a /f /q /s %1\*.aaa
>>f:\temp\clean.txt del /a /f /q /s %1\*.bbb
>>f:\temp\clean.txt del /a /f /q /s %1\*.ccc
复制代码

chcp 65001
set "ftype=asp aria2"
set "dsk=d e g h i j k l m n o p q r s t u v w x y z"
for %%a in (%dsk%) do if exist %%a: call :001 %%a:
call :002
exit

:001
for %%b in (%ftype%) do del /f /s /q /a %1\*.%%b>>"%cd%\tmp.tmp"
exit /b

:002
for /f "usebackq" %%c in ("%cd%\tmp.tmp") do if %%c neq "" call :003
call :004

:003
>>"%cd%\clean.txt" echo %date%
for /f "usebackq tokens=3 delims=- " %%d in ("%cd%\tmp.tmp") do echo %%d>>"%cd%\clean.txt"
@del /f /a /s /q "%cd%\tmp.tmp" 
exit 

:004
@del /f /a /s /q "%cd%\tmp.tmp" 
exit
复制代码