View previous topic :: View next topic |
Author |
Message |
WildDIC
Joined: 18 Feb 2005 Posts: 21
|
(Separately) Posted: Sun Jan 15, 2006 21:58 Post subject: Поиск каталогов с файлами определенного типа |
|
|
Как можно найти все каталоги (и только каталоги), в которых содержатся файлы определенного типа?
Например, надо получить список каталогов, в которых есть файлы с расширением TXT. Что-то результат моих экспериментов никакого эффекта не дал
! | Avada: | Перемещено из Секретов и советов в Общие вопросы. Заголовок отредактирован. | |
|
Back to top |
|
|
Evgenych
Joined: 25 Jan 2005 Posts: 53
|
(Separately) Posted: Mon Jan 16, 2006 01:05 Post subject: |
|
|
Например, так.
Делаешь кнопку на панели инструментов:
Команда: cmd.exe /c
Параметры: for /f %%i in ('dir /b /s /ad') do if exist %%i\*.txt echo %%i >> 1.txt
Путь: пусто
И в фале 1.txt получаешь нужный тебе список.
з.ы. только для winnt\xp\2000\2003 |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) 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.
Для ускорения поиска на закладке "Дополнительно" можно установить Атрибут - Каталог. |
|
Back to top |
|
|
WildDIC
Joined: 18 Feb 2005 Posts: 21
|
(Separately) Posted: Wed Jan 18, 2006 16:08 Post subject: |
|
|
Спасибо.
Долго эксперементировал - скрипт не хотел работать.
Все решилось просто - оказалось, что плагин чуть-чуть обновился. |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|