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

林小七

好久没搞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

@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

@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 
复制代码

模拟递归

林小七

回复 2# xpw

不让用dir的s参数

林小七

回复 3# ADSL0125


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