sa
|
Posted: Tue Jul 28, 2015 12:46 Post subject: |
|
|
Скрипт с использованием утилиты TCFS2:
Code: | '============================================
' Описание: Поиск файлов в интервале 2 минут
' Требования: Необходима утилита TCFS2
'============================================
NOW1 = NOW
NOW2 = dateadd("n",2,NOW1)
WScript.CreateObject("WScript.Shell").Exec "%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe" _
& " /ef ""tcm(501,1) eval(send_wait(`~(^{TAB}{TAB} " _
& Right("0" & Day(NOW1), 2) & "." & Right("0" & Month(NOW1), 2) & "." & Year(NOW1) _
& " " & Right("0" & Hour(NOW1), 2) & ":" & Right("0" & Minute(NOW1), 2) & ":" & "00" _
& "{TAB 2}" & Right("0" & Day(NOW2), 2) & "." & Right("0" & Month(NOW2), 2) & "." & Year(NOW2) _
& " " & Right("0" & Hour(NOW2), 2) & ":" & Right("0" & Minute(NOW2), 2) & ":" & "00" _
& "^+{TAB}{TAB})`, findwnd(`TFindFile`)))""" |
|
|