Andrey_A
|
 Posted: Thu May 06, 2010 14:32 Post subject: |
 |
|
В этой теме тоже есть скрипты обсуждаемой вами теме
http://forum.wincmd.ru/viewtopic.php?p=60456&highlight=#60456
Я сам пользуюсь расширенным скриптом: | Code: | 'Пометить файлы с заданной строкой фильтра
' В параметрах прописать искомую строку
' К примеру *.doc;*.txt
' или" >Архивы"
' вылетает окно (если 0, то помечает файлы в папке, если 1, то сначала раскрывает подпапки, а потом помечает)
Filters = WScript.Arguments(0)
Dim TCS
Set TCS = CreateObject("TCSCRIPT.Helper")
Find_String = InputBox("Введите число 1, если хотите, чтобы выделение произошло и в ПОДПАПКАХ (по умолчанию выделение происходит только в ТЕКУЩЕЙ папке)", "Выделить по фильтру ")
If Len(Find_String) = 0 Then
Find_String = 0
End If
If Find_String <> 0 Then
TCS.SendCommand "cm_DirBranch"
TCS.Pause = 2000
TCS.SendCommand "cm_SpreadSelection"
TCS.SendKeystroke (Filters & "{Enter}")
Else
TCS.SendCommand "cm_SpreadSelection"
TCS.SendKeystroke (Filters & "{Enter}")
End If
Set TCS = Nothing |
Иногда хочется пометить файлы в подпапках, он его выполняет
У меня тоже была проблема с несанкционированным переключением на английский. Я стал брать название шаблона в кавычки - проблем стало меньше
>"Файлы не старше 1 часа" |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
