king_stiven
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
whoyou
два варианта
Код: @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%>"%temp%\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 |
Код: @Echo Off
setlocal enabledelayedexpansion
cd /d d:\outgoing
for /f "usebackq tokens=*" %%c in ("%temp%\1.txt") do Set f_Count=%%c
for /f "usebackq tokens=*" %%a in (`dir "d:\outgoing\*.*" /o /b /a:-d`) do (
Set /a f_Count+=1
Ren "%%a" "out-%Date:~6,4%%Date:~3,2%%Date:~0,2%-%Time:~0,2%%Time:~3,2%-!f_Count!.dat"
)
echo !f_Count!>"%temp%\1.txt" |
Если хочешь, чтоб с еденицы снова счётчик был, надо удалить файл %temp%\1.txt |
Всего записей: 2232 | Зарегистр. 17-07-2006 | Отправлено: 17:35 13-02-2009 | Исправлено: king_stiven, 17:40 13-02-2009 |
|
