sa
|
 Posted: Mon Feb 10, 2014 14:35 Post subject: |
 |
|
| Cobblestone-TLT wrote: | | Интересно было бы попробовать такой вариант |
Не такой, но с TCFS2:
| Code: | '===============================================
' Описание: Переместить в папку с текущей датой
' Параметры: %L
' Требования: Необходима утилита TCFS2
'===============================================
Dim TCFS2, S
'===============================================
TCFS2 = "%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"
'===============================================
If WScript.Arguments.Count > 0 Then
S = "tcm(1005,1) delay(200) send(`~(" & Right(Year(Date),4) & "." & Right("0" & Month(date), 2)_
& "." & Right("0" & Day(date), 2) & "\{TAB}{Enter})`, findwnd(`TInpComboDlg`))"
S = " /ef """ & S & """"
CreateObject("WScript.Shell").Exec TCFS2 & S
End If
Wscript.Quit |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
