Flasher
|
 Posted: Sun Jul 31, 2011 18:55 Post subject: |
 |
|
В общем, посмотрел, вроде ничего сложного. Т.е. теперь работает и в режимах "без подкаталогов" и "файлы на панель" после поиска.
| Code: | ' Выделение группы файлов/папок в соответствии с длиной имени файла/папки под курсором
' Необходима регистрация Script Helper ActiveX for TC
' Параметры: %N "%P"
'===============================================================
On Error Resume Next
N = WScript.Arguments(0)
CD = WScript.Arguments(1)
If Err.Number > 0 Then
MsgBox "Установите курсор на файле или папке!", vbInformation
Err.Clear
Wscript.Quit
End If
Set FSO = CreateObject("Scripting.FileSystemObject")
With CreateObject("TCScript.Helper")
T = .GetTextFromClip
.LockTC True
.SendCommand 524
If FSO.FileExists(N) Then .SendCommand 3302, True
If FSO.FolderExists(N) Then .SendCommand 3303, True
.SendCommand 2018, True
.SendCommand 524
For Each F in Split(.GetTextFromClip, vbnewline)
If Len(FSO.GetFileName(F)) = Len(FSO.GetFileName(N)) Then
If Len(CD) > 0 Then
A = A & vbnewline & Mid(F,Len(CD)+1)
Else A = A & vbnewline & F
End If
End If
Next
.SetTextToClip(A)
.LockTC False
.SendCommand 2033, True
.SetTextToClip(T)
End With
Set FSO = Nothing
Wscript.Quit |
Предыдущий вариант не заменяю, т.к. тот срабатывает побыстрее. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
