Flasher
|
 Posted: Sat Jul 30, 2011 12:12 Post subject: |
 |
|
Безоконный вариант (удобно вызывать с клавиатуры):
| Code: | ' Выделение группы файлов/папок в соответствии с длиной имени файла/папки под курсором
' Необходима регистрация Script Helper ActiveX for TC
' Параметр: %N
'===============================================================
On Error Resume Next
N = WScript.Arguments(0)
With CreateObject("Scripting.FileSystemObject")
Set CD = .GetFolder(CreateObject("WScript.Shell").CurrentDirectory)
If .FileExists(N) Then
For Each F in CD.Files
If Len(F.Name) = Len(N) Then A = A & vbnewline & F
Next
ElseIf .FolderExists(N) Then
For Each F in CD.SubFolders
If Len(F.Name) = Len(N) Then A = A & vbnewline & F & "\"
Next
Else MsgBox "Установите курсор на файле или папке!", vbInformation
End If
End With
With CreateObject("TCScript.Helper")
T = .GetTextFromClip
.SetTextToClip(A)
.SendCommand 2033, True
.SetTextToClip(T)
End With
Wscript.Quit |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
