[Iska]

А как сделать чтобы в файл типа "DB100073801.07.201416-52-35-Doc1.txt", который копируется в "Q:\" добавились строка с его же именем »

Пробуйте:

читать дальше »

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set sFolder1=Q:\
set sFolder2=C:\SCAN
set sFolder3=C:\SCAN\BACK
set log_copy=C:\SCAN\BACK\lcopy.log
set log_move=C:\SCAN\BACK\lmove.log

call :GetTemporaryName

if exist "%sFolder1%\." (
	>>"%log_copy%" (
		echo -=-=-=- start TRANSFER -=-=-=-=- 
		echo %date% %time% 
		
		for %%i in ("%sFolder2%\*.txt") do (
			>"%TemporaryName%" echo %%~nxi
			>nul copy /y "%TemporaryName%"+"%%~i" "%sFolder1%\%%~nxi"
			echo %%~nxi
		)
		echo -=-=-=- finish TRANSFER -=-=-=-=-
	)
	
	>>"%log_move%" (
		echo -=-=-=- start MOVE BACK -=-=-=-=-
		echo %date% %time% 
		
		for %%i in ("%sFolder2%\*.txt") do (
			>"%TemporaryName%" echo %%~nxi
			>nul copy /y "%TemporaryName%"+"%%~i" "%sFolder3%\%%~nxi"
			del /f /q "%%~i"
			echo %%~nxi
		)
		
		echo -=-=-=- finish MOVE BACK -=-=-=-=-
	)
	
	del /f /q "%TemporaryName%"
	
	echo ----------------------
	echo TRANSFER CONPLITE
	echo ----------------------
) else (
	echo ----------------------
	echo ERROR NO DISK Q:
	echo CONNECT DISK Q:
	echo TRANSFER NO CONPLITE
	echo ----------------------
)

endlocal
exit /b 0

rem ==========================================================================
rem Функция GetTemporaryName()
rem
rem Серый форум / CMD/BAT: генерация пути для временного файла или папки
rem (http://forum.script-coding.com/viewtopic.php?id=6259)
rem ==========================================================================
:GetTemporaryName
	setlocal enableextensions enabledelayedexpansion

:NextName
	set sTempName=%temp%\temp%random%.tmp

	if exist "%sTempName%" goto :NextName

	set sProcName=%~0

	endlocal & set %sProcName:~4%=%sTempName%
	exit /b 0
rem ==========================================================================