中国DOS联盟

求助,如何用P比较A目录和B目录,并删除B目录多出A目录的文件

如A目录有文件共9个,而B目录中文件有A目录中的9个,还有3个A目录中没有的文件,如何删除这3个文件

试下这个

@echo off rem AD 为 A目录 BD 为 B目录 rem 可以用 set /p 来输入 :start cls cd.>adir.txt cd.>delf.txt dir /a-d /b /ogne AD >>adir.txt for /f "todens=1 delims= " %%i in ('dir /a-d /b /ogne BD') do ( findstr /i "%%i" adir.txt >nul 2>nul || echo %%i>>delf.txt ) echo press any key to delete files pause>nul for /f "tokens=1 delims= " %%i in (delf.txt) do del BD\%%i >nul pause exit

[ Last edited by james168 on 2007-10-5 at 12:48 PM ]

这个文件多时就慢点

比较两目录的大小，把大的目录里面的文件清空，再把小目录里的文件全部自制过来。

不能检测目录中的子目录文件并删除,只能检测一层
@echo off
rem AD 为 A目录 BD 为 B目录
rem 可以用 set /p 来输入
:start
cls
cd.>adir.txt
cd.>delf.txt
dir /a-d /b /ogne AD >>adir.txt
for /f "todens=1 delims= " %%i in ('dir /a-d /b /ogne BD') do (
findstr /i "%%i" adir.txt >nul 2>nul || echo %%i>>delf.txt
)
echo press any key to delete files
pause>nul
for /f "tokens=1 delims= " %%i in (delf.txt) do del BD\%%i >nul
pause
exit

其中tokens=1好象不能用,删除后可以运行了修改为
@echo off
rem AD 为 A目录 BD 为 B目录
rem 可以用 set /p 来输入
:start
cls
cd.>adir.txt
cd.>delf.txt
dir /a-d /b /ogne c:\AD >>adir.txt
for /f "delims= " %%i in ('dir /a-d /b /ogne c:\BD') do (
findstr /i "%%i" adir.txt >nul 2>nul || echo %%i>>delf.txt
)
for /f "delims= " %%i in (delf.txt) do del c:\BD\%%i >nul
for /f "delims= " %%i in (delf.txt) do rd /q /s c:\BD\%%i >nul

exit

后我在 ('dir /a-d /b /ogne c:\BD')中加入 /S 好象还是不能删除子目录中的文件
请问怎么回事,还有就是无法检测删除目录

另外出错大,如文件名中有空格比如: 新建 文本文档.TXT 的文件就无法删除

[ Last edited by cjfcjf222 on 2007-10-5 at 09:49 PM ]

应该只要一个for+if exist就行了。

@echo off for %%i in (B\*.*) do ( if not exist "A\%%~nxi" del /q "%%i" ) pause

假设A、B为同级目录，不同的话，自己再改改吧。

其实，linux下的diff 命令蛮好用的……

用7楼的吧
简单高效。。。

谢谢wudixin96。。。

[ Last edited by james168 on 2007-10-6 at 11:33 AM ]

这个同样不能检测子目录的

可以用for /r来改写一下的。

加了FOR /R /D 好象还是不能检测子目录,不过可以检测第一层目录中有空格的文件,可以删除A中没有的子目录,只是如果A中子目录有的话,却无法删除B子目录里多出来的文件

我改写成这样

@echo off
:删除文件
for /r %%i in (B\*) do (
if not exist "A\%%~nxi" del /q "%%i"
)
:删除目录
for /d %%i in (B\*) do (
if not exist "A\%%~nxi" rd /q /s "%%i"
)
pause

[ Last edited by cjfcjf222 on 2007-10-6 at 11:20 PM ]

有人回答吗