Копирование и перемещение в Командной строке

@koldynok · Регистрация: 22.05.2013

Author24 — интернет-сервис помощи студентам

Доброго времени суток.

Задача - перемещать из сетевой папки(test1) в локальную(test2) все файлы и папки которые появляются в сетевой время от времени. Реализация в CMD.

Мое решение - ниже написанный текст засунут в батник, () естественно не входят в батник.

Windows Batch file

::(перемещение всех файлов из т1 в т2)
move D:\test1\*.* D:\test2
::(Копирование всех папок из т1 в т2 раньше еще стояло /-Y)
xcopy /V /D /S /E /H D:\test1 D:\test2
::(Удаление т1)
rmdir /s /q D:\test1
::(Создание т1 заново, которая получает почти все св-ва удаленной т1)
mkdir D:\test1
::(Полный доступ для всех к вновь созданной т1)
cacls D:\test1 /G все:f

ПРОБЛЕМА
Если в test1 скинули папку или файл которая уже есть в test2 то более новая просто заменяет существующую.
Особенно много папок с названием "Новая папка" и т.п. файлов. На юзеров надежды никакой, они так привыкли.

НЕОБХОДИМО
Чтобы новой папке или новому файлу присваивалось название+индекс, для того чтобы новое не заменяло старое.

P.S. Приветствуются и любые другие решения моей проблемы на включающие сторонние программы. Все либо в CMD либо внутренними силами Винды.

Не знаю надо ли это, но Винда везде стоит ХР, SP2

Dragokas · 23.05.2013, 18:40

Здесь по ссылке есть рекурсивная функция, если сами сможете прикрутить ее к своей задаче.
Перемещение файлов с заданным расширением со всего логического диска в создаваемый каталог

@koldynok · 24.05.2013, 12:56 **[ТС]**

Спасибо, попробую - может в процессе что-то свое всплывет, а может и Ваше смогу прикрутить. Направление понятно, дальше только практика

Добавлено через 6 часов 19 минут
Если заменить в Вашем коде верхушку таким образом -

Bash

1 2	::Искомое расширение файлов Set Ext=*

От копируются ВСЕ файлы, причем даже если они в папках, но вот сами папки не копируются... с этим затык.

Dragokas · 24.05.2013, 13:28

Нужно в части dir /b /s /a:-d убрать :-d

@koldynok · 26.05.2013, 15:28 **[ТС]**

Все работает. Перемещение из папки 1 в папку 2. Батник лучше засунуть в планировщик задач, на цикл в 10-15 минут. Вот окончательный код:

Windows Batch file

@echo off
::// В скрипт включена демонстрация поддержки файлов//папок с буквами украинского алфавита
Setlocal EnableDelayedExpansion
::Искомое расширение файлов
Set Ext=*.*
::Откуда копировать
Set From=D:\1
::Куда копировать
Set To=D:\2
 
if not exist "%To%" md "%To%"
 
chcp 1251>nul
Set LanguageFlag=true
 
::// Здесь я заменил -d на d чтобы каталоги учитывались и заменил copy на move, чтоб перемещать внутренности а не копировать.
for /f "delims=" %%A in ('dir /b /s /a:d "%From%\%Ext%"') do (
  if defined LanguageFlag (chcp 866>nul& Set LanguageFlag=)
  echo Found %%~A  
  Call :GetEmptyName "%To%" "%%~nxA" NewName
  Echo --^> %To%\!NewName!
  move "%%~A" "%To%\!NewName!" >nul
)
:://Здесь я убрал паузу, чтобы пользователь вообще ничего не замечал
:://pause
:://goto :eof
 
:GetEmptyName %1-Folder %2-FileName %3-Var.Return %4-Optional.System.Num
if "%~4"=="" (
    Set "NewFileName=%~2"
  ) else (
    Set "NewFileName=%~n2(%~4)%~x2"
)
if exist "%~1\%NewFileName%" (
    Set Num=%~4
    Set /A Num+=1
    Call :GetEmptyName "%~1" "%~2" "%~3" "!Num!"
  ) else (
    Set "%~3=%NewFileName%"
    Exit /B
)
Exit /B

@Glin · 29.05.2014, 12:52

Здравствуйте, а можно запустить под чистый dos данный код? если да то как

@Eva Rosalene · 30.05.2014, 23:24

Glin, нет. Никак.

@Maksi1311 · 25.03.2019, 14:46

А что сюда добавить, чтобы и папки и файлы перемещал?

Windows Batch file

@echo off
::// В скрипт включена демонстрация поддержки файлов//папок с буквами украинского алфавита
Setlocal EnableDelayedExpansion
::Искомое расширение файлов
Set Ext=*.*
::Откуда копировать
Set From=D:\1
::Куда копировать
Set To=D:\2
 
if not exist "%To%" md "%To%"
 
chcp 1251>nul
Set LanguageFlag=true
 
::// Здесь я заменил -d на d чтобы каталоги учитывались и заменил copy на move, чтоб перемещать внутренности а не копировать.
for /f "delims=" %%A in ('dir /b /s /a:d "%From%\%Ext%"') do (
  if defined LanguageFlag (chcp 866>nul& Set LanguageFlag=)
  echo Found %%~A  
  Call :GetEmptyName "%To%" "%%~nxA" NewName
  Echo --^> %To%\!NewName!
  move "%%~A" "%To%\!NewName!" >nul
)
:://Здесь я убрал паузу, чтобы пользователь вообще ничего не замечал
:://pause
:://goto :eof
 
:GetEmptyName %1-Folder %2-FileName %3-Var.Return %4-Optional.System.Num
if "%~4"=="" (
    Set "NewFileName=%~2"
  ) else (
    Set "NewFileName=%~n2(%~4)%~x2"
)
if exist "%~1\%NewFileName%" (
    Set Num=%~4
    Set /A Num+=1
    Call :GetEmptyName "%~1" "%~2" "%~3" "!Num!"
  ) else (
    Set "%~3=%NewFileName%"
    Exit /B
)
Exit /B

@alpap · 25.03.2019, 20:10

Сообщение от Maksi1311

/a:d

заменить на /a

@Maksi1311 · 26.03.2019, 13:03

Спасибо огромное, все работает))

А возможно сделать так, чтобы это была не одна папка, а несколько? Пример:

Windows Batch file

@echo off
::// В скрипт включена демонстрация поддержки файлов//папок с буквами украинского алфавита
Setlocal EnableDelayedExpansion
::Искомое расширение файлов
Set Ext=*.*
::Откуда копировать
Set From=D:\1; D:\3; D:\5 и тд.
::Куда копировать
Set To=D:\2; D:\4; D:\6 и тд.

Чтобы из D:\1 в D:\2; из D:\3 в D:\4; из D:\5 в D:\6 и тд.

Добавлено через 2 часа 52 минуты
Извиняюсь, что в одно сообщение не написал(((

И возможно ли такое, чтобы как то зациклить этот батник, к примеру, чтобы он постоянно работал и мониторил папки, раз что-то появилось, сразу переместил?

@alpap · 26.03.2019, 23:08

Сообщение от Maksi1311

мониторил папки, раз что-то появилось, сразу переместил

это на powershell только.

FlasherX · 26.03.2019, 23:51

Сообщение от alpap

это на powershell только.

Из консолей.

@alfred22 · 30.03.2020, 15:18

подскажите как в этом батнике организовать чтобы файлы имеющие в имени файла знаки "!", "?" не удалялись, пот ому что даный бат удаляет файли такие, например !внимание или !!!внимание

Windows Batch file

@echo off
::// В скрипт включена демонстрация поддержки файлов//папок с буквами украинского алфавита
Setlocal EnableDelayedExpansion
::Искомое расширение файлов
Set Ext=*.*
::Откуда копировать
Set From=D:\1
::Куда копировать
Set To=D:\2
 
if not exist "%To%" md "%To%"
 
chcp 1251>nul
Set LanguageFlag=true
 
::// Здесь я заменил -d на d чтобы каталоги учитывались и заменил copy на move, чтоб перемещать внутренности а не копировать.
for /f "delims=" %%A in ('dir /b /s /a:d "%From%\%Ext%"') do (
  if defined LanguageFlag (chcp 866>nul& Set LanguageFlag=)
  echo Found %%~A  
  Call :GetEmptyName "%To%" "%%~nxA" NewName
  Echo --^> %To%\!NewName!
  move "%%~A" "%To%\!NewName!" >nul
)
:://Здесь я убрал паузу, чтобы пользователь вообще ничего не замечал
:://pause
:://goto :eof
 
:GetEmptyName %1-Folder %2-FileName %3-Var.Return %4-Optional.System.Num
if "%~4"=="" (
    Set "NewFileName=%~2"
  ) else (
    Set "NewFileName=%~n2(%~4)%~x2"
)
if exist "%~1\%NewFileName%" (
    Set Num=%~4
    Set /A Num+=1
    Call :GetEmptyName "%~1" "%~2" "%~3" "!Num!"
  ) else (
    Set "%~3=%NewFileName%"
    Exit /B
)
Exit /B

Dragokas · 30.03.2020, 17:07

Удалить строчку:

Windows Batch file

1	Setlocal EnableDelayedExpansion

И заменить:

Windows Batch file

1	move "%%~A" "%To%\!NewName!" >nul

на

Windows Batch file

1	call move "%%%%~A" "%%To%%\%%NewName%%" >nul

@alfred22 · 30.03.2020, 18:52

вот такую дает ошибку и ничего не переносит
Dragokas

Dragokas · 30.03.2020, 19:28

Замените еще:

Windows Batch file

1	Call :GetEmptyName "%~1" "%~2" "%~3" "!Num!"

на

Windows Batch file

1	Call Call :GetEmptyName "%%~1" "%%~2" "%%~3" "%%Num%%"

@Joey · 31.03.2020, 09:13

Не по теме:

Сообщение от alfred22

файлы имеющие в имени файла знаки "!", "?"

"?" не может использоваться в именах файлов, если что

Добавлено через 14 секунд

Не по теме:

Сообщение от alfred22

файлы имеющие в имени файла знаки "!", "?"

"?" не может использоваться в именах файлов, если что

volodin661 · 31.03.2020, 16:19

Сообщение от Joey

"?" не может использоваться в именах файлов, если что

понятно, что долго эти бабушкины запреты на 'неправильные символы' не проживут,
в Linux/Unix, например, можно всё, a смешение ОС идёт нешуточное, да и Windows shell сейчас настолько
изощрённа, что позволяет использовать WinAPI 'напрямую', а в WinAPI, как известно, знаки вопроса
в спецификациях файлов и устройств вполне себе легальны.

( разумеется, cmd тут не при делах )

@Joey · 03.04.2020, 09:19

volodin661, действительно, бабушкины) я так понимаю, это реликты служебных свойств управляющих символов и только, да? Тогда тоже предрекаю им смерть. Насчет смещения тож согласен, я бы сказал даже, что запоздали из-за упрямства и алчности микрософта и макоси

Сообщение от volodin661

Windows shell сейчас настолько
изощрённа, что позволяет использовать WinAPI 'напрямую'

наконец-то...

volodin661 · 03.04.2020, 14:46

Сообщение от Joey

запоздали из-за упрямства и алчности микрософта и макоси

Про алчность MacOS я не понял )).

( учитывая тот факт, что ядро последней - это открытый BSD Unix и пользователь собственно за ОС не платит ни цента. )

Dragokas 17996 / 7697 / 892 Регистрация: 25.12.2011 Сообщений: 11,470 Записей в блоге: 16
	23.05.2013, 18:40	2
	Здесь по ссылке есть рекурсивная функция, если сами сможете прикрутить ее к своей задаче. Перемещение файлов с заданным расширением со всего логического диска в создаваемый каталог 1

Dragokas 17996 / 7697 / 892 Регистрация: 25.12.2011 Сообщений: 11,470 Записей в блоге: 16
	24.05.2013, 13:28	4
	Нужно в части dir /b /s /a:-d убрать :-d 1

@Glin 16 / 16 / 5 Регистрация: 26.05.2014 Сообщений: 122
	29.05.2014, 12:52	6
	Здравствуйте, а можно запустить под чистый dos данный код? если да то как 1

@Eva Rosalene Модератор 5197 / 2079 / 406 Регистрация: 06.01.2013 Сообщений: 4,793
	30.05.2014, 23:24	7
	Glin, нет. Никак. 0

@alpap 4334 / 2124 / 661 Регистрация: 26.04.2015 Сообщений: 6,823
	25.03.2019, 20:10	9
	Сообщение от Maksi1311 /a:d заменить на /a 1

@alpap 4334 / 2124 / 661 Регистрация: 26.04.2015 Сообщений: 6,823
	26.03.2019, 23:08	11
	Сообщение от Maksi1311 мониторил папки, раз что-то появилось, сразу переместил это на powershell только. 0

FlasherX 6228 / 2670 / 1051 Регистрация: 06.06.2017 Сообщений: 9,114
	26.03.2019, 23:51	12
	Сообщение от alpap это на powershell только. Из консолей. 0

@alfred22 0 / 0 / 0 Регистрация: 30.03.2020 Сообщений: 2
	30.03.2020, 18:52	15
	вот такую дает ошибку и ничего не переносит Dragokas Миниатюры 0

@Joey Джоуи 1081 / 643 / 240 Регистрация: 05.05.2015 Сообщений: 3,559 Записей в блоге: 2
	31.03.2020, 09:13	17
	Не по теме: Сообщение от alfred22 файлы имеющие в имени файла знаки "!", "?" "?" не может использоваться в именах файлов, если что Добавлено через 14 секунд Не по теме: Сообщение от alfred22 файлы имеющие в имени файла знаки "!", "?" "?" не может использоваться в именах файлов, если что 0

volodin661 5982 / 1991 / 323 Регистрация: 10.12.2013 Сообщений: 6,861
	31.03.2020, 16:19	18
	Сообщение от Joey "?" не может использоваться в именах файлов, если что понятно, что долго эти бабушкины запреты на 'неправильные символы' не проживут, в Linux/Unix, например, можно всё, a смешение ОС идёт нешуточное, да и Windows shell сейчас настолько изощрённа, что позволяет использовать WinAPI 'напрямую', а в WinAPI, как известно, знаки вопроса в спецификациях файлов и устройств вполне себе легальны. ( разумеется, cmd тут не при делах ) 1

@Joey Джоуи 1081 / 643 / 240 Регистрация: 05.05.2015 Сообщений: 3,559 Записей в блоге: 2
	03.04.2020, 09:19	19
	volodin661, действительно, бабушкины) я так понимаю, это реликты служебных свойств управляющих символов и только, да? Тогда тоже предрекаю им смерть. Насчет смещения тож согласен, я бы сказал даже, что запоздали из-за упрямства и алчности микрософта и макоси Сообщение от volodin661 Windows shell сейчас настолько изощрённа, что позволяет использовать WinAPI 'напрямую' наконец-то... 0

volodin661 5982 / 1991 / 323 Регистрация: 10.12.2013 Сообщений: 6,861
	03.04.2020, 14:46	20
	Сообщение от Joey запоздали из-за упрямства и алчности микрософта и макоси Про алчность MacOS я не понял )). ( учитывая тот факт, что ядро последней - это открытый BSD Unix и пользователь собственно за ОС не платит ни цента. ) 0