taravasya
|
 Posted: Sat Sep 18, 2010 18:20 Post subject: |
 |
|
Всё!!! Пришлось его заставить.....
| Code: | Dim TCS, strDayOfMonth, strMonth, strYear, YYYYMMDD
Set TCS = CreateObject("TCScript.Helper")
strDayOfMonth = right("0" & day(date()),2)
strMonth = right("0" & month(date()),2)
strYear = right (year(date()),4)
YYYYMMDD = strYear & "-" & strMonth & "-" & strDayOfMonth
TCS.SendCommand "cm_EditPath"
TCS.SendKeystroke "a" & Chr(58) & "\order\" & YYYYMMDD
TCS.SendKeystroke "{Enter}"
Set TCS = Nothing |
Таким образом вместо двоеточия в коде, я указал ему конкретный символ. Теперь можно переименовать тему на:
Скрипт для мгновенной смены каталога. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
