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 

Single Post  Topic: Упаковка TC с присвоением текущей даты в имени 
Author Message
sa



PostPosted: Tue Mar 19, 2013 14:42    Post subject: Reply with quote

Code:
'=============================================================================
' Описание: Упаковка с добавлением текущей даты и времени к имени файла архива
' Параметры: %L%Z
'=============================================================================
If WScript.Arguments.Count > 0 Then WScript.CreateObject("WScript.Shell").SendKeys "%{F5}{F5}{RIGHT}" _
& "{(}" & Right("0" & Day(date), 2) & "_" & Right("0" & Month(date), 2) & "_" & Year(date) _
& "_" & Right("0" & Hour(NOW), 2) & "-" & Right("0" & Minute(NOW), 2) & "-" & Right("0" & Second(NOW), 2) _
& "{)}{HOME}+{END}" _
'& "{ENTER}"

Add
Из-за проблемы с нажатием вместо точки буквы ю при русской раскладке, заменил точку на символ подчёркивания (дабы не заморачиваться со сменой регистра).


Last edited by sa on Wed Mar 20, 2013 17:43; edited 4 times in total
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group