dark-------13
19-03-2012, 15:27
Здравствуйте,
Не срабатывает скрипт переноса файлов по размеру - !!! с условием переименования одинаковых файлов !!! (Если файлы одинаковые к новому файлу добавляется суффикс)
Как его подправить ?
@ECHO OFF
Set input=4
Set output=2
Set ext=txt
FOR %%i IN (%ext%) do CALL :MVFILE "%%i"
GOTO :EOF
:MVFILE
If "%~z1"=="" GOTO :EOF
IF %~z1 GEQ 300000 (
For /F "UseBackQ Delims=" %%I In (`Dir "%input%" /B 2^>Nul`) Do For %%K In (%ext%) Do If /I "%%~xI"==".%%K" Call :_copyF "%%I"
Exit
ECHO %1, size=%~z1
:_copyF
Set cn=
:_loop
If Exist "%output%\%~n1_%cn%%~x1" Set /a cn+=1& Goto _loop
Move "%input%\%~1" "%output%\%~n1_%cn%%~x1">Nul
GoTo :EOF
::) ELSE (
:: move %1 "c:\test\3\"
:: ECHO %1, size=%~z1
::)
::GOTO :EOF
Не срабатывает скрипт переноса файлов по размеру - !!! с условием переименования одинаковых файлов !!! (Если файлы одинаковые к новому файлу добавляется суффикс)
Как его подправить ?
@ECHO OFF
Set input=4
Set output=2
Set ext=txt
FOR %%i IN (%ext%) do CALL :MVFILE "%%i"
GOTO :EOF
:MVFILE
If "%~z1"=="" GOTO :EOF
IF %~z1 GEQ 300000 (
For /F "UseBackQ Delims=" %%I In (`Dir "%input%" /B 2^>Nul`) Do For %%K In (%ext%) Do If /I "%%~xI"==".%%K" Call :_copyF "%%I"
Exit
ECHO %1, size=%~z1
:_copyF
Set cn=
:_loop
If Exist "%output%\%~n1_%cn%%~x1" Set /a cn+=1& Goto _loop
Move "%input%\%~1" "%output%\%~n1_%cn%%~x1">Nul
GoTo :EOF
::) ELSE (
:: move %1 "c:\test\3\"
:: ECHO %1, size=%~z1
::)
::GOTO :EOF