wolf0425
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
@echo off
rem xdel path1 [path2]
rem по списку файлов с подкаталогами от текущего каталога
rem (или непосредственно заданного path2\)
rem удалить одноименные из path1\ если они там есть.
chcp 1251 > nul
if .%1 == . goto :eof
set "eraseat=%~f1"
set "scan_at=%~f2"
if .%2 == . set "scan_at=%cd%"
if .%scan_at:~-1% neq .\ set "scan_at=%scan_at%\"
if .%eraseat:~-1% neq .\ set "eraseat=%eraseat%\"
echo scan_at =%scan_at%
echo erase_at=%eraseat%
echo.
if "%eraseat%" equ "%scan_at%" echo THE SAME DIRS! & goto:eof
setlocal enabledelayedexpansion
set _skip=0
set count=2
:count
if "!scan_at:~%count%,1!" == "\" set /a _skip += 1
if not "!scan_at:~%count%,1!" == "" set /a count += 1 & goto:count
setlocal disabledelayedexpansion
for /f "delims=" %%d in ('dir "%scan_at%" /o /b /s /a:-d') do (
for /f "tokens=%_skip%* delims=\" %%e in ("%%d") do (
if .%%f neq . if exist "%eraseat%%%f" del "%eraseat%%%f" && echo deleted=%eraseat%%%f )
)
|
|
Всего записей: 2928 | Зарегистр. 25-04-2007 | Отправлено: 13:10 26-01-2010 | Исправлено: wolf0425, 13:32 26-01-2010 |
|
