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

Volniy

Posted: Thu Nov 16, 2006 22:55 Post subject:

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

Code:

' 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"
А обработку ошибок лень добавить мне было...