как сделать кнопку добавления даты в выделенных файлах

[wert202]

как сделать кнопку чтобы при нажатии на нее к выделенным файлам
добавилась текущая дата с начала файла
Типа - 2006.11.02 *******

1. Вобщем выделил несколько файлов (вася, миша).
2. нажал на кнопку-скрипт
3. получил результат (2006.11.02 вася, 2006.11.02 миша)

CaptainFlint:
Нарушение пп. 9, 13 правил! Переношу в "Автоматизацию".
+ Предупреждение за дубликат темы.

[wert202]

CaptainFlint:
Нарушение пп. 9, 13 правил! Переношу в "Автоматизацию".
+ Предупреждение за дубликат темы.

Подскажите тогда пожалуйста ссылочку на эту тему, а то все ищу и не могу найти, может поиск неправильно спрашиваю

[CaptainFlint]

Под дубликатом я подразумевал создание двух одинаковых тем в разных разделах этого форума: в "Общих вопросах" и в "Написании плагинов".

[wert202]

Дак никто не знает или может вопрос я непонятно задал, чтоб помогли ответить

[Lev]

1. Вобщем выделил несколько файлов (вася, миша).
2. нажал на Ctrl+M
3. Ввел маску переименования - [Y].[M].[D] [N]
(В следующий раз будешь выбирать её из списка запомненных)
4. Start
5. получил результат (2006.11.02 вася, 2006.11.02 миша)
Можно и скриптом, но лениво писать

[wert202]

Спасибо, но это я уже знаю по CTRL+M.
Просто часто этим приходится заниматься и както немного не удобно
таким макаром делать.
А можно как-то вытащить ссылку на добавление даты, чтоб прописать ее например в параметр какой-нить запуска?

[wert202]

А скриптик было бы клево. Именно это и хотелось как-то сделать

[Zorroz]

Lev
А у меня при такой маске выводится дата создания. Т.е. я сейчас(16 ноября) пишу [Y].[M].[D] [N] и выводится 2006.11.14 log .png

[Lev]

Перепроверил в 6.54 и 7pb1 - у меня получается дата файла, а не текущая

[wert202]

у меня получается текущая дата в переименовании в 7pb1.
По маске стоит [=tc.Дата создания.Y.M.D] [N]

[Zorroz]

wert202
Тоже не помогает ставит 14, а не 16 число.
Там же написано [=tc.Дата создания.Y.M.D] [N] - Дата создания

[wert202]

я раньше не обращал внимание, но после подсказки
нажимаю кнопку:
[= ?] плагин -> tc -> Дата создания -> (выбираю из списка)
и мне выводится

[=tc.Дата создания.YMD]

Вот эта часть обязательная [=tc.Дата создания.

Также в этом списке есть [= ?] плагин -> tc -> Время создания,
Дата модификации (вобщем штук 15 перечислено)

Но вот все же еслиб был скриптик, одной кнопкой всего переводить в нужное тебе - былобы здорово

[Lev]

чего-то у вас в консерваториях...
ланна, держите скриптик.
для работы требует установки TCScript.Helper'а

Код: Выделить всё

'namebydate.vbs
Dim fso,tcs,f,ff,dt.fff
Set fso = CreateObject("Scripting.FileSystemObject")
Set TCS = CreateObject("TCScript.Helper")

ff = TCS.GetSrcSelectedFiles(-1)
For Each f In ff
Set fff = FSO.GetFile(f)
dt=fff.DateLastModified'.datecreated
dt = Year(Dt) & "." & Month(Dt) & "." & Day(Dt)
fff.name=dt & " " & fff.name
Next

Set fso = Nothing
WScript.Quit

[Volniy]

Так вроде же текущую дату нужно было дописывать. Кроме того, тут вполне можно обойтись и без хелпера, например вот так:

Код: Выделить всё

' Copyright (c) 2006, Volniy
Option Explicit
Dim FSO, StreamFile, theFile
Set FSO = CreateObject("Scripting.FileSystemObject") 
Set StreamFile = FSO.OpenTextFile(WScript.Arguments(0), 1) 
   Do While Not StreamFile.AtEndOfStream 
     Set theFile = FSO.GetFile(StreamFile.ReadLine)
     theFile.Name = FormatDateTime(Date,vbShortDate) & " " & theFile.Name
   Loop
Set StreamFile = Nothing 
Set FSO = Nothing 
Wscript.Quit() 

В кнопке в качестве параметра указать "%L"
А обработку ошибок лень добавить мне было...

[Lev]

Ой, про текущую только при третьем прочтении прочел