Имя пользователя:
Пароль:
 

Название темы: Копирование файлов
Показать сообщение отдельно

Ветеран


Contributor


Сообщения: 2735
Благодарности: 1699

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
@Echo Off 
	Set "TxtFile=Z:\Box_In\list.txt"
	Set "BoxOut=D:\Backup"
	Set /A MaxLen=3

	2>nul Md "%BoxOut%" 
	FOR /F "usebackq delims=" %%f IN ("%TxtFile%") DO Call :AddFile "%BoxOut%" "%%f" %MaxLen%
Exit /B

:AddFile
	If Not Exist %2 Exit /B 1
	If Not Exist "%~1\%~nx2" >nul Copy %2 "%~1\"
	Set /A N=10000000
	:Begin
		Set /A N+=1
		Call Set "OutName=%~1\%~n2(%%N:~-%3%%)%~x2"
		If Exist "%OutName%" GoTo :Begin
	>nul Copy %2 "%OutName%"
Exit /B

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.


Последний раз редактировалось megaloman, 18-06-2020 в 12:53.

Это сообщение посчитали полезным следующие участники:

Отправлено: 12:26, 18-06-2020 | #2

Название темы: Копирование файлов