evle
1 + int rand(100); | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Да не парьтесь вы, прикрутил уже давно через vbs:
Код:
Set objArgs = WScript.Arguments
Set fs = CreateObject("Scripting.FileSystemObject")
CurDate = Now
Set re = New RegExp
re.Pattern = " (\d:)"
CurDate = re.Replace(CurDate, " 0$1")
re.Pattern = "(\d+)\.(\d+).(\d+) (\d+)\:(\d+):(\d+)"
CurDate = re.Replace(CurDate, "{$3-$2-$1.$4-$5-$6}")
If objArgs.Count <> 0 then fs.CreateFolder(objArgs(I) & CurDate)
|
Потом запускал из пользовательского меню с параметром %p. А на запуск из меню hotkey повешал. Изврат в общем.
Через групповое переименование - не то. Макросов ведь нет, чтобы это автоматом сделать, а папка должна создаваться мгновенно.
Сейчас вот думаю, как бы backup прикрутить. Чтобы выделенные файлы копировать в такую папку. Можно, конечно, через vbs целиком, но не хотелось виндовое копирование использовать. А с Total'ом общаться из скрипта накладно как-то.
----------
For every complex problem, there is a solution that is simple, neat, and wrong. |
|
Всего записей: 2110 | Зарегистр. 03-02-2005 | Отправлено: 17:32 06-11-2005 | Исправлено: evle, 17:37 06-11-2005 |
|
