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

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

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

Author

Message

Lev

Posted: Thu Nov 16, 2006 18:57 Post subject:

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

Code:

'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