whoyou
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите исправить ошибку в батнике либо дать совет. Под ХР нумерация увеличивается, а под 2003 сервером файл 1.txt становится размером 0 байт.
(В папку d:\outgoing\ падают файлы они переименуются в конце добовляется счетчик, должен наростающий, потом фалы переносятся в другую папку, и так бесконечный процес пришли-переименовали-перенесли).
@Echo On
Set f_Ext=dat
Set f_Ok=ok
for /f "usebackq tokens=*" %%c in ("%temp%\1.txt") do Set f_Count=%%c
For %%a In (d:\outgoing\*.*) Do @Call :Rena %%a %%~ta
exit
goto :EOF
:Rena
Set /a f_Count=%f_Count%+1
Set f_Name=%1
Set f_Date=%2
Set f_Time=%3
Set f_Day=%f_Date:~0,2%
Set f_Month=%f_Date:~3,2%
Set f_Year=%f_Date:~6,4%
Set f_Hour=%f_Time:~0,2%
Set f_Min=%f_Time:~3,2%
Set f_NewName=out-%f_Year%%f_Month%%f_Day%-%f_Hour%%f_Min%-%f_Count%
echo %f_Count%>"c:\1.txt"
If Exist %f_NewName% Set f_NewName=%f_NewName%-%f_Count%
Ren %f_Name% %f_NewName%.%f_Ext%
copy nul d:\outgoing\out-%f_Year%%f_Month%%f_Day%-%f_Hour%%f_Min%-%f_Count%.%f_Ext%.%f_Ok%
goto :EOF
Заранее благодарен
Добавлено:
Помогите исправить батник. Под ХР счетчик работает - увеличивается, а под 2003 Серером файл 1.txt нулевой. (приходят файлы, переименовуются добовляя счетчик, а потом переносятся в архив).
@Echo On
Set f_Ext=dat
Set f_Ok=ok
for /f "usebackq tokens=*" %%c in ("%temp%\1.txt") do Set f_Count=%%c
For %%a In (d:\outgoing\*.*) Do @Call :Rena %%a %%~ta
exit
goto :EOF
:Rena
Set /a f_Count=%f_Count%+1
Set f_Name=%1
Set f_Date=%2
Set f_Time=%3
Set f_Day=%f_Date:~0,2%
Set f_Month=%f_Date:~3,2%
Set f_Year=%f_Date:~6,4%
Set f_Hour=%f_Time:~0,2%
Set f_Min=%f_Time:~3,2%
Set f_NewName=out-%f_Year%%f_Month%%f_Day%-%f_Hour%%f_Min%-%f_Count%
echo %f_Count%>"c:\1.txt"
If Exist %f_NewName% Set f_NewName=%f_NewName%-%f_Count%
Ren %f_Name% %f_NewName%.%f_Ext%
copy nul d:\outgoing\out-%f_Year%%f_Month%%f_Day%-%f_Hour%%f_Min%-%f_Count%.%f_Ext%.%f_Ok%
goto :EOF
Заранее благодарен |
ing_test %%i 
: 
. Получилось! Комрады, спасибо за помощь! 