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: Sat Dec 09, 2006 18:12 Post subject:

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