Новый участник
Сообщения: 6
Благодарности: 0
|
Профиль
|
Сайт
|
Отправить PM
| Цитировать
Цитата megaloman:
@Echo Off
Call :DirBack "C:\Users\s.andrashenko\Desktop\New" "20??_??_??_*.dt" "txt"
GoTo :Eof
:DirBack
If Not Exist %1 (Echo Folder not found %1 &Pause &GoTo :Eof)
Set "InDir=%~1"
If Not "%InDir:~-1%"=="\" Set "InDir=%InDir%\"
If Not "%~3"=="" FOR %%i IN (%~3) DO Del "%Indir%*.%%~i" 2>nul
Set "Last="
Set "Ext="
FOR /F "usebackq tokens=1,2,3* delims=_" %%i IN (`Dir /B /A:-D /O:EN "%Indir%%~2" 2^>nul`) DO Call :DelBack "%Indir%" "%%i" "%%j" "%%k" "%%l"
GoTo :Eof
:DelBack
If "%Last%"=="%~2%~3" If "%Ext%"=="%~x5" Del "%~1%~2_%~3_%~4_%~5" &GoTo :Eof
Set "Last=%~2%~3"
Set "Ext=%~x5"
GoTo :Eof »
|
Cпасибо большое |
Отправлено: 12:34, 13-12-2017
| #13
|
