bathome比赛题第一题

林小七 · 发表于 2013-8-27 13:16:32

本帖最后由林小七于 2013-8-27 13:33 编辑

好久没搞P处理了~突然发现有比赛题，就顺手写了个~觉得个人P处理不会再进步了~还是那个烂水平~
拿出来分享下~由于不活跃，等级低~~不能再别的版区发帖~顺便问下我这个好像没递归~~
不管了~反正xp下是删除了bathome~睡觉去了~~

@echo off &&title XSeven By Seven
::1、删除文件夹 D:\BatHome
::注意：
::（1）该文件夹下面包含文件和子文件夹
::（2）可以使用 rd 或 rmdir 命令，但是不允许使用它们的 /s 选项
::（3）需要在程序中模拟 rd /s 的递归删除功能
:: By :Seven
if not exist d:\bathome goto eofs
rd d:\bathome
if not %errorlevel% equ 0 goto dels else goto eofs
:dels
for /d /r "d:\bathome" %%s in (*) do @echo %%s>>file.temp
for /f "delims=" %%a in ('sort /r^<file.temp') do (
del /f /s /q "%%a\*" 2>nul>>delfile.txt
rd "%%a" 2>nul>nul
)
del /f /q /s d:\bathome\* 2>nul>nul
rd d:\bathome>2nul>nul
del /f /s /q file.temp>nul 2>nul
:eofs
@echo.删除完成&&pause>nul&&exit

复制代码

xpw · 发表于 2013-8-27 20:08:56

本帖最后由 xpw 于 2013-8-27 20:13 编辑

@echo off
::删除所有文件
del /a /f /s /q D:\BatHome\*.* >nul
::删除所有子目录
for /f "delims=" %%a in ('dir /ad /s /b D:\BatHome^|sort /r')do (
attrib -s -h -r "%%a"&rd "%%a")
::删除父目录
attrib -s -h -r D:\BatHome&rd D:\BatHome
pause>nul

复制代码

感觉我的就一条命令一条命令拼接起来的样子

ADSL0125 · 发表于 2013-8-27 20:37:40

@ECHO OFF
CALL :CLEARDIR D:\BatHome
PAUSE
EXIT /B
::-------------------------------------------------------------------------------
:CLEARDIR
FOR /F %%a IN ('DIR %1 /AD /B') DO (
::判断目录下是否包含目录,包含子目录回调CLEARDIR
DIR %1\%%a /AD /B|FIND /V "*">NUL&&CALL :CLEARDIR %1\%%a SUBDIR
ECHO 删除目录文件:%1\%%a
DEL %1\%%a /F/Q >NUL 2>NUL
RD %1\%%a >NUL 2>NUL
)
::由上层调用删除
IF DEFINED %%2 EXIT /B
::删除自身目录
DEL %1 /Q >NUL 2>NUL
RD %1 >NUL 2>NUL
EXIT /B
:_CLEARDIR

复制代码

模拟递归

林小七 · 发表于 2013-8-28 07:53:03

回复 2# xpw

不让用dir的s参数

林小七 · 发表于 2013-8-28 08:00:59

回复 3# ADSL0125

果然递归，，，，，膜拜，学习

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文件操作] bathome比赛题第一题