Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для El Sanchez

Ветеран


Contributor


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

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


Oleg48,
Код: Выделить весь код
@Echo Off
Set Source=C:\Source!

Set RenameSource=%Source:!=%
For /F "Tokens=*" %%A In ("%RenameSource%") Do Ren "%Source%" "%%~nA" 2>nul&&^
For /F "Tokens=*" %%A In ('Dir /B /A-D "%RenameSource%"') Do Call :Func "%%A"
GoTo :EOF

:Func
	Set FileName=%~1
	Set FileName=%FileName:!=%
	Ren "%RenameSource%\%~1" "%FileName%" 2>nul
Это сообщение посчитали полезным следующие участники:

Отправлено: 13:48, 05-08-2010 | #2