Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

как сделать кнопку добавления даты в выделенных файлах
Goto page Previous  1, 2
 
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander printer-friendly view
View previous topic :: View next topic  
Author Message
wert202



Joined: 02 Nov 2006
Posts: 10

Post (Separately) Posted: Tue Nov 21, 2006 10:36    Post subject: Reply with quote

Volniy Громадное спасибо. Все работаем. Только одно но.
Хотелось бы чтоб дата ставилась 2006.11.21
Нучтоб год был первым, далее месяц, потом число
Спасибо
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Tue Nov 21, 2006 14:02    Post subject: Reply with quote

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

ОК. Замени в скрипте строку
Code:
     theFile.Name = FormatDateTime(Date,vbShortDate) & " " & theFile.Name
на
Code:
     theFile.Name = Year(Date) & "." & Month(Date) & "." & Day(Date) & " " & theFile.Name
Back to top
View user's profile Send private message
wert202



Joined: 02 Nov 2006
Posts: 10

Post (Separately) Posted: Wed Dec 06, 2006 13:02    Post subject: Reply with quote

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


Громадное спасибо. Все работает. Не мог раньше написать, инета не было
Back to top
View user's profile Send private message
wert202



Joined: 02 Nov 2006
Posts: 10

Post (Separately) Posted: Fri Dec 08, 2006 17:59    Post subject: Reply with quote

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.
Правда не смотрел еще может быть тоже самое с месяцами получается.
Back to top
View user's profile Send private message
Volniy



Joined: 15 Dec 2004
Posts: 585
Location: Местный

Post (Separately) Posted: Sat Dec 09, 2006 18:12    Post subject: Reply with quote

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
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Автоматизация Total Commander All times are GMT + 4 Hours
Goto page Previous  1, 2
Page 2 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group