[amel27]

а как добавить ещё одну (или несколько) папку в обработку »

оформить как процедуру:

Код:

@echo off
SETLOCAL EnableDelayedExpansion

Call :MainExe Material3
Call :MainExe MaterialConst

EXIT

:MainExe  %folder_name%
::---------------------
 set "set $d="& if "%~1"=="" GoTo:EOF
 for /f "delims=" %%d in ('dir/b/s/ad "%~1.*"') do if "%%~xd"=="" (
   for /f "delims=" %%f in ('dir/b/s/a-d "%%d"') do (
     set "$d=%%~dpf"& set "$d=!$d:%%~dpd=%%~dpd..\..\!"
     call:MoveRen "%%f" "!$d!"
))
GoTo:EOF

:MoveRen  %source_file% %destin_folder%
::-------------------------------------
 set "$s="& set "$n="& if "%~1"=="" GoTo:EOF
 if not exist "%~2" md "%~2"||exit/b 1
:MoveRen_Loop
 if not exist "%~2%~n1%$s%%~x1" move "%~1" "%~2%~n1%$s%%~x1"& GoTo:EOF
 fc/b "%~1" "%~2%~n1%$s%%~x1">nul&&(del/f/q "%~1"& GoTo:EOF)
 set/a "$n+=1"& set "$s=0!$n!"& set "$s=_!$s:~-2!"
GoTo:MoveRen_Loop

P.S. имя папки должно быть без расширения (особенность алгоритма)

[Tosyk]

amel27, не понимаю зависимости, как добавить ещё несколько папок, не разберу из последнего скрипта.

нужно просто добавлять к

Код:

Call :MainExe Material3
Call :MainExe MaterialConst

новые папки

Код:

Call :MainExe Folder01
Call :MainExe Folder02

так ли это?

[amel27]

Tosyk, да

кстати, зря проигнорировали предложение forsem,
в отличие от XCOPY, у ROBOCOPY есть ключ по перемещению папок

[Tosyk]

Работает чётко! Спасибо

а как сделать чтобы после перемещения удалялась исходная папка?

Допустим такая структура:

Код:

_export_
               fold01
                         Material3
                         MaterialConst
                         MatsFull
               fold02
                         Material3
                         MaterialConst
                         MatsFull

получается в папке _export_ после завершения операции 0 байт, я пробую удалить её командой

Код:

RD /S/Q _export_

написав её в конце скрипта, но скрипт просто игнорирует её.

p.s.: я не проигнорировал упоминание ROBOCOPY, просто во-первых я "тупо не шарю", извените за сленг, а во-вторых я считаю, что если взялся за что-то одно, его нужно завершить.

[Tosyk]

такая непонятность:

скрипт завис (не крашился а завис) на 814 файле и не идёт дальше.

касперский негодует

в диспетчере задач постоянно выскакивает и пропадает процесс fc.exe

папки с файлами Material3 ещё есть

[amel27]

как сделать чтобы после перемещения удалялась исходная папка? »

вариант с удалением успешно перемещенных папок:

Код:

@echo off
SETLOCAL EnableDelayedExpansion

Call :MainExe Material3
Call :MainExe MaterialConst

EXIT

:MainExe  %folder_name%
::---------------------
 set "set $d="& if "%~1"=="" GoTo:EOF
 for /f "delims=" %%d in ('dir/b/s/ad "%~1.*"') do if "%%~xd"=="" (
   set "$e=0"& for /f "delims=" %%f in ('dir/b/s/a-d "%%d"') do (
     set "$d=%%~dpf"& set "$d=!$d:%%~dpd=%%~dpd..\..\!"
     call:MoveRen "%%f" "!$d!"||set/a $e+=1 )
   if !$e!==0 rd /s/q "%%d" )
GoTo:EOF

:MoveRen  %source_file% %destin_folder%
::-------------------------------------
 set "$s="& set "$n="& if "%~1"=="" GoTo:EOF
 if not exist "%~2" md "%~2"||exit/b 1
:MoveRen_Loop
 if not exist "%~2%~n1%$s%%~x1" move "%~1" "%~2%~n1%$s%%~x1"&& GoTo:EOF||exit/b 2
 fc/b "%~1" "%~2%~n1%$s%%~x1">nul&& (del/f/q "%~1"&& GoTo:EOF||exit/b 3)
 set/a "$n+=1"& set "$s=0!$n!"& set "$s=_!$s:~-2!"
GoTo:MoveRen_Loop

[Tosyk]

Спасибо, а как быть с остановившимся процессом, касперский отключил, но ничего не изменилось?

p.s.: последний файл был M01_00.mat

[amel27]

как быть с остановившимся процессом »

смотря что хотите, вообще анализ ошибок через запуск:

Код:

script.bat >script.log 2>&1

...и смотрим лог "script.log", только в батнике предварительно поправить 1 строку: "@echo off" -> "@echo on"


P.S. антивирус может блокировать файлы и тем самым препятствовать их удалению/переименованию

[Tosyk]

Отключил антивирус, запустил скрипт снова, перемещено 3 500 файлов (вкупе 4 папки), полёт нормальный, в первый раз ошибок не заметил, постоянно наблюдал, на экране написано 1 file(s) moved - много раз.

p.s.: осталась самая полновесная папка - 56 000 элементов.

[Tosyk]

а с чем может быть связана невероятно низкая скорость работы скрипта? без касперского

примерно 2-3 файла в 5-9 минут

виндовс на компе несколько дней, никаких лишних программ не стоит даже офиса нет