Выделение папок, в которых находится файл...

[Andrey_A]

Я несколько раз сталкивался с такой задачей. Есть много папок, и нужно выделить те, в которой находится тот или файл. В первом случае мне нужно было выделить папки с файлом desctop.ini, в другом
descript.ion, в третьем... Возможно это сделать можно скриптом с параметром <файл>

[Batya]

vbs-скрипт для Script Content Plugin.

[Andrey_A]

Скрипт на который дана ссылка, помечает файлы\папки из файл листа
А мне этот файл-лист неизвестен.
В моём случае есть папки, а в некоторых из них находится файл к примеру File.txt, мне необходимо проверить в каких папках есть этот файл и их выделить
Или я что-то недопонял, Batya наведи пожалуйста на мысль

Может быть ссылка неверная? У меня есть скрипт, по-моему от тебя Batya, где ищутся, помечаются папки, в которых есть определённый ТИП файла, вот если бы его подделать, и чтобы он искал не ТИП, а сам ФАЙЛ

[Вахмурка]

http://powerpro.wincmd.ru/Scripts/DirColor.htm

[Batya]

У меня же в шапке скрипта написано:

будет возвращать признак наличия файла\каталога в указанном файле-списке

Может я сам чего-то не понял?
Нужно внести в файл-лист твой ФАЙЛ. Например, вносишь "desctop.ini". Настраиваешь схему подцветки на возвращение у плагина полем Result значения 1. Теперь будут подцвечиваться папки, которые содержат файл "desctop.ini". Разве не это надо?

[Andrey_A]

Что-то у меня никогда не было таких проблем с vbs скриптами как с этим. Я тоже думаю, что всё просто, но понять не могу, где ошибаюсь
Ещё раз то, что я делаю
1.Создал папку Script_FileList
2.В папке 4 файла Script_FileList.wdx, FileList.vbs, FileList.txt, script.ini
3.script.ini изменил

Код: Выделить всё

[Script] 
Section=General

[General] 
Script=FileList.vbs
LongName=1

[Defaults]
LongName=1
ParseDirs=0

4.Добавил плагин к плагинам
5.Составляю шаблон: script_filelist.Result contains 1
6.Куда бы не вставлял шаблон(в поиск, в выделение, в цвет...), результата нет
Подкажи, где собака порылась?

[Batya]

Andrey_A
Добавь в секцию General:

Код: Выделить всё

ParseDirs=1

[Andrey_A]

К сожалению это не помогло, пишет Такие файлы не найдены.
Может кто-нибудь выложет эти четыре файла свои, чтобы сравнить, если кто тестил откликнетесь

[Batya]

Andrey_A
Хм... Опять впопыхах дал неправильный ответ.
Скрипт вот такой:

Код: Выделить всё

'========== Изменяемые параметры ===========================================
Const FileList = "C:\FileList.txt" 'Файл-список
'===========================================================================

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
content = Result

Function Result
  Dim List, f
  Result = 0
  If Not FSO.FolderExists(filename) Then Exit Function
  If Not FSO.FileExists(FileList)   Then Exit Function
  
  On Error Resume Next
  List = FSO.OpenTextFile(FileList, ForReading, False).ReadAll
  If Err.Number <> 0 Then Exit Function
  On Error GoTo 0
  
  For Each f In Split(List, vbNewLine)
    If f <> "" Then If FSO.FileExists(filename & "\" & f) Then Result = 1
  Next
End Function

script.ini:

Код: Выделить всё

[Script]
Section=General

[General]
ParseDirs=1
Script=General.vbs

Соответственно, если в файле "C:\FileList.txt" содержится, например, script.ini, то для папки, содержащей этот файл вернется 1, иначе 0.

[Andrey_A]

Хотел уже ответить, что работает, но увы результат тот же... нет
Кстати я уже все скрипты, которые нашёл для Script... установил и все как-то работают, но с этим либо реакция 0 на всё (на папки, файлы), либо: "такие файлы не найдены"

[Вахмурка]

Попробуй, может, с PowerPro больше повезет. Сцыла выше.

[VadiMGP]

Andrey_A
Попробуй плагин Filemask.

[Andrey_A]

Попробуй, может, с PowerPro больше повезет. Сцыла выше.

Выдаёт ошибку

Код: Выделить всё

Invalid use of period: cannot load plugin, 
invalid handle value, or invalid function: ini
Error occurred near line 6 of script DirColor: l
ocal Masks = ini.enum_keys(IniFile, "Colors")
Press Cancel to end all running scripts.

Ктати в PowerPro появилась возможность убирать "висячесть" программы в трей?

[Andrey_A]

Попробуй плагин Filemask.

Спасибо огромное - получичось почти с первого раза

[Batya]

Andrey_A
Поправил скрипт.

У меня в General.vbs много чего написано. Когда выкладывал итог сюда, удалил случайно лишнюю строку "Const ForReading = 1"
Сейчас проверил именно на этом General.vbs. Всё работает.