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

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

through

[^/[Print]\]
Goto page Previous 1, 2 :| |:
Total Commander -> Автоматизация Total Commander

#16: Author: wert202,

Posted: Tue Nov 21, 2006 10:36
—
Volniy Громадное спасибо. Все работаем. Только одно но.
Хотелось бы чтоб дата ставилась 2006.11.21
Нучтоб год был первым, далее месяц, потом число
Спасибо

#17: Author: Volniy, Location: Местный

Posted: Tue Nov 21, 2006 14:02
—

wert202 wrote:

Хотелось бы чтоб дата ставилась 2006.11.21
Нучтоб год был первым, далее месяц, потом число

ОК. Замени в скрипте строку

Code:

theFile.Name = FormatDateTime(Date,vbShortDate) & " " & theFile.Name

на

Code:

theFile.Name = Year(Date) & "." & Month(Date) & "." & Day(Date) & " " & theFile.Name

#18: Author: wert202,

Posted: Wed Dec 06, 2006 13:02
—

Volniy wrote:

wert202 wrote:

Хотелось бы чтоб дата ставилась 2006.11.21
Нучтоб год был первым, далее месяц, потом число

ОК. Замени в скрипте строку

Code:

theFile.Name = FormatDateTime(Date,vbShortDate) & " " & theFile.Name

на

Code:

theFile.Name = Year(Date) & "." & Month(Date) & "." & Day(Date) & " " & theFile.Name

Громадное спасибо. Все работает. Не мог раньше написать, инета не было

#19: Author: wert202,

Posted: Fri Dec 08, 2006 17:59
—

Volniy wrote:

ОК. Замени в скрипте строку

Code:

theFile.Name = FormatDateTime(Date,vbShortDate) & " " & theFile.Name

на

Code:

theFile.Name = Year(Date) & "." & Month(Date) & "." & Day(Date) & " " & theFile.Name

А где нужно подправить чтобы дата получалась не 2006.12.8,
а 2006.12.08, чтобы к дню даты добавлялась к единичным цифрам 0.
Правда не смотрел еще может быть тоже самое с месяцами получается.

#20: Author: Volniy, Location: Местный

Posted: Sat Dec 09, 2006 18:12
—

wert202 wrote:

А где нужно подправить чтобы дата получалась не 2006.12.8, а 2006.12.08, чтобы к дню даты добавлялась к единичным цифрам 0.

Теперь замени

Code:

theFile.Name = Year(Date) & "." & Month(Date) & "." & Day(Date) & " " & theFile.Name

на

Code:

Dim M,D
M=Month(Date): If M<10 Then M= "0" & M
D=Day(Date): If D<10 Then D= "0" & D
theFile.Name = Year(Date) & "." & M & "." & D & " " & theFile.Name

Total Commander -> Автоматизация Total Commander

output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page Previous 1, 2 :| |: Page 2 of 2