Flasher
|
 Posted: Fri Jul 29, 2011 03:34 Post subject: |
 |
|
Что-то вроде того (путь запуска очистить): | Code: | ' Выделение элементов в файловой панели по числу символов в имени
' Необходима регистрация Script Helper ActiveX for TC
'===============================================
Types = InputBox("Введите 1/2, если требуются выделить файлы/папки:", "Выделение элементов списка по длине имён", "1")
Name = InputBox("Введите число символов:", "Выделение элементов списка по длине имён")
If Len(Name) = 0 Or Not IsNumeric(Name) Then WScript.Quit
With CreateObject("Scripting.FileSystemObject")
Set CD = .GetFolder(CreateObject("WScript.Shell").CurrentDirectory)
If Types = 1 Then
For Each F in CD.Files
If Len(F.Name) = Abs(Name) Then A = A & vbnewline & F
Next
ElseIf Types = 2 Then
For Each F in CD.SubFolders
If Len(F.Name) = Abs(Name) Then A = A & vbnewline & F & "\"
Next
Else MsgBox "Неверный ввод данных! Повторите попытку!", vbCritical
End If
End With
With CreateObject("TCScript.Helper")
T = .GetTextFromClip
.SetTextToClip(A)
.SendCommand 2033, True
.SetTextToClip(T)
End With
Wscript.Quit |
| shveicar wrote: | | чтобы создать затем файл список |
Кстати, файл-список создать проще, чем выделить, и будет полноценно портабельный вариант.
| Rodny wrote: | | "filex.Длина имени=..." |
Я сперва подумал, что так файлы и сортируются: | shveicar wrote: | | файлы можно отсортировать |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
