Flasher
|
 Posted: Wed Jul 29, 2015 21:26 Post subject: |
 |
|
Я бы немного подсократил скрипт:
| Code: | '===================================================
' Описание: поиск файлов в интервале 2 будущих минут
'============== Путь к утилите TCFS2 ===============
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""
'===================================================
NOW1 = NOW : NOW2 = dateadd("n", 2, NOW1)
WScript.CreateObject("WScript.Shell").Run TCFS2 &_
" /ef ""tcm(501,1) eval(send_wait(`~(^{TAB}{TAB} " & Redate(NOW1) & _
"{TAB 2}" & Redate(NOW2) & "^+{TAB}{TAB})`, findwnd(`TFindFile`)))"""
Function Redate(NOWX)
Redate = Right("0" & Day(NOWX), 2) & "." & Right("0" & Month(NOWX), 2) & "." &_
Year(NOWX) & " " & Right("0" & Hour(NOWX), 2) & ":" & Right("0" & Minute(NOWX), 2) & ":00"
End Function |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
