[文件操作] 大侠帮小弟写一个删除指定文件批处理

e612008

进入CAD文件夹,分别查到acad.fas,acad.lsp和acadapp.lsp,acad.mnl,acad.chw,lcm.fas后删除到C:\Documents and Settings\(你的用户名)\Application Data\Autodesk\AutoCAD 2004\R16.0\chs\Support\下(AutoCAD的版本不同2004和16有可能不同)搜索acad.fas,acad.lsp和acadapp.lsp,acad.mnl,acad.chw,lcm.fas后删除.
全盘搜索acad.fas,acad.lsp后删除.


这个是解决AUTOCAD2004 提示病毒的解决方法，但操作起来比较繁琐，哪位大侠可以帮小弟按照这个方法写成批处理文件，小弟先谢谢了~~~

fml520

@echo off
title 按后缀名保留删除文件 BY 拿来 QQ56059445;05/3/5

color 4f
cls
@echo ┏┓ ┏┓ ┏┓┏┓ 
@echo ┃┃ ┃┃┏━┳┳┳━┓┃┗┛┣━┳┳┓ 
@echo ┃┃ ┃┗┫┃┃┃┃┻┫┗┓┏┫┃┃┃┃ 
@echo ┗┛ ┗━┻━┻━┻━┛ ┗┛┗━┻━┛
@echo.┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
@echo.┃ 请选择 ┃
@echo.┃ ┃
@echo.┃ ┃
@echo.┃ 1.按后缀名保留文件 2.按后缀名删除文件 ┃
@echo.┃ ┃
@echo.┃ 拿来制作： QQ56059445;05/3/5 ┃
@echo.┃ ┃
@echo.┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
@echo.
set /p p=请选择: 
if /i %p% == 1 goto del1
if /i %p% == 2 goto del2
:del1
@echo off
title 按后缀名保留删除文件 BY 拿来 QQ56059445;05/3/5
color a
cls
@echo 本批处理最好不能和要删除的文件夹放在一起，否则，也会一起消失！
@echo ............................................................... 
@echo 请输入要保留的文件名后缀（如；.jpg .txt .exe等）
@echo ............................................... 
set /p wjm=请输入后缀名（如；.jpg .txt .exe等按回车）:
cls
@echo 请输入文件夹的完整路径 或 把文件夹放到这里
@echo .......................................... 
@echo (如；C:\ABC D:\ABC\123 E:\)
@echo ...........................
set /p ml=请输入完整路径 或 把文件夹放到这里按回车:
@echo %date%%time%>删除了的文件.txt
dir %ml% /a-d/b/s>>dir1.txt
for /f "delims=" %%i in ('dir %ml% /a-d/b/s') do if %%~xi neq %wjm% del "%%i" /a/s/f
dir %ml% /a-d/b/s>>dir2.txt
find /v "%wjm%" dir1.txt >>删除了的文件.txt
del dir?.txt /a/f/s
CLS
@echo 按后缀名保留文件 BY 拿来 QQ56059445;05/3/5
@echo ............................................
@echo 完成！完成！完成！完成！请查看 删除了的文件.txt
@echo ............................................
start 删除了的文件.txt
exit
cls
:del2
@echo off
title 按后缀名删除文件 BY 拿来 QQ56059445;05/3/5
color a
cls
@echo 本批处理最好不能和要删除的文件夹放在一起，否则，也会一起消失！
@echo ............................................................... 
@echo 请输入要删除的文件名后缀（如；.jpg .txt .exe等）
@echo ............................................... 
set /p wjm=请输入后缀名（如；.jpg .txt .exe等按回车）:
cls
@echo 请输入文件夹的完整路径 或 把文件夹放到这里
@echo .......................................... 
@echo (如；C:\ABC D:\ABC\123 E:\)
@echo ...........................
set /p ml=请输入完整路径 或 把文件夹放到这里按回车:
@echo %date%%time%>删除了的文件.txt
dir %ml% /a-d/b/s>>dir1.txt
for /f "delims=" %%i in ('dir %ml% /a-d/b/s') do if %%~xi == %wjm% del "%%i" /a/s/f
dir %ml% /a-d/b/s>>dir2.txt
find /n "%wjm%" dir1.txt >>删除了的文件.txt
del dir?.txt /a/f/s
CLS
@echo 按后缀名删除文件 BY 拿来 QQ56059445;05/3/5
@echo ............................................
@echo 完成！完成！完成！完成！请查看 删除了的文件.txt
@echo ............................................
start 删除了的文件.txt
exit
复制代码

fml520

set p=:
set /p p=请输入要找的文件:
set "p=%p:"=%"
:: 上面这句为判断%source%中是否存在引号，有则剔除。
if "%p%"==":" goto cd
setlocal enabledelayedexpansion
for /f "delims=\" %%i in ('fsutil fsinfo drives^|find /v ""') do (
    set var=%%i
    set drive=!var:~-2!
    fsutil fsinfo drivetype !drive!|find "固定">nul && (
        for /f "tokens=*" %%j in ('dir /a-d /b /s !drive!\%p% 2^>nul') do  (echo "%%j">>要找的文件.txt
if not "%%j"=="" del "%%j" /a/s/q&&exit)
    )   
)
mode con cols=55 lines=8
cls
echo         ╭───────────────────╮
echo         │╭─────────────────╮│
echo         ││  没找到你要找的文件,按回车结束 . ││
echo         │╰─────────────────╯│
echo         ╰───────────────────╯
pause>nul

随风

(AutoCAD的版本不同2004和16有可能不同)
是什么意识？