Flasher
|
 Posted: Sat Nov 19, 2011 13:39 Post subject: |
 |
|
Немного модифицировал.
| Code: | '=========================================================================
' Выделить элементы с заданным интервалом, начиная с элемента под курсором
' Необходима регистрация Script Helper ActiveX for TC
' Параметры: %N <режим выделения> <шаг>
' Режим выделения: 1 - всё; 2 - только файлы; 3 - только папки
' Пример: %N 2 5
'=========================================================================
On Error Resume Next
With WScript.Arguments
Start = .Item(0)
Mode = .Item(1)
Step = .Item(2)
End With
Set D = CreateObject("Scripting.Dictionary")
With CreateObject("TCScript.Helper")
.LockTC True
T = .GetTextFromClip
.SendCommand 330&Mode
List = .GetSrcSelectedFiles(0)
UL = UBound(List)
.SendCommand 524
i = 0
For Each F in List
D.Add F, i
i = i + 1
Next
If Abs(UL) >= Abs(Step) Then
For n = D.Item(Start) To UL
Sp = Sp & List(n) & vbNewLine
n = n + Step
Next
.SetTextToClip CStr(Sp)
.SendCommand 2033, True
End If
.SetTextToClip(T)
.LockTC False
End With
Set D = Nothing
WScript.Quit |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
