Batya
|
 Posted: Mon Sep 20, 2010 14:15 Post subject: |
 |
|
| taravasya wrote: | Мне нужен скрипт, по выполнению которого, тотал командер переходил бы в папку:
A:\Orders\Date |
| Code: | '===================================
' Переход в TC в папку текущей даты
'===================================
Option Explicit
Dim WSH, Path, TCPath, strDayOfMonth, strMonth, strYear, YYYYMMDD
Set WSH = CreateObject("WScript.Shell")
Path = "a:\order\"
strDayOfMonth = right("0" & day (date()), 2)
strMonth = right("0" & month(date()), 2)
strYear = right( year (date()), 4)
YYYYMMDD = strYear & "-" & strMonth & "-" & strDayOfMonth
TCPath = WSH.ExpandEnvironmentStrings("%Commander_Path%") & "\totalcmd.exe"
WSH.Run """" & TCPath & """ /S /O /L=""" & Path & YYYYMMDD & """", 1, True
Set WSH = Nothing
WScript.Quit 0
|
SendKeystroke не используется - проблем с раскладкой не будет.
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
