Batya
|
 Posted: Mon Jan 16, 2006 12:17 Post subject: |
 |
|
Можно использовать плагин ScriptContent.
script.ini:
| Code: | [Script]
Section=File Types In Dir
[File Types In Dir]
Script=FileTypesInDir.vbs
LongName=1
ParseDirs=1 |
FileTypesInDir.vbs:
| Code: | Dim FSO, Fold, FilesInFold, ScanFile, FileExt
Set FSO = CreateObject("Scripting.FileSystemObject")
content = ""
If FSO.FolderExists(filename) Then
Set Fold = FSO.GetFolder(filename)
Set FilesInFold = Fold.Files
On Error Resume Next
For Each ScanFile in FilesInFold
FileExt = FSO.GetExtensionName(ScanFile.Path)
If FileExt = "" Then
FileExt = " "
End If
If Instr(1, content, FileExt, 1) = 0 Then
content = content & "," & FileExt
End If
Next
On Error GoTo 0
If Len(content) > 0 Then
content = Mid(content, 2)
End If
Set Fold = Nothing
Set FilesInFold = Nothing
End If
Set FSO = Nothing |
Скрипт сделал так, что он возвращает для папок расширения файлов, перечисленные через запятую. Если файл без расширения, то я в эту строку вставляю пробел.
Т.о., при поиске из TC переходим на закладку "Плагины", ставим "Поиск с плагинами", выбираем:
Плагин = script,
Свойство = Result,
Операция = "содержит",
Значение (например) = txt.
Для ускорения поиска на закладке "Дополнительно" можно установить Атрибут - Каталог. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
