Организация поиска в сетевой папке

[jangle]

Опять я с дурацким вопросом. Подскажите, как лучше организовать поиск каталога в сетевой папке чужого компа?
Допустим там лежат тысячи, даже десятки тысяч вложенных папок и файлов (в последстии их может быть сотни тысяч).
У меня есть список запросов из сотни названий например: Мост, Дорога, Вокзал и т.д.

Мне нужно просканировать всю сетевую папку и найти там близкие названия вложенных папок и вернуть к ним путь.

Допустим:

запрос [Мост] ответ [\\Server\Данные\Москва\Объекты\Мосты\Железнодорожный мост N15]

запрос [Вокзал] ответ [\\Server\Данные\Москва\Стратегические объекты\Вокзалы\Казанский вокзал]


Как лучше поступить, прочитать в память все это гигантское дерево каталогов, а потом искать в нем совпадения? Или же просто искать обычными файловыми фунциями? Нужно максимально ускорить поиск по сети.

[alibek]

Если клиент-сервер, то ищешь на удаленном компе, возвращаешь совпадения.
Если клиент, то выгружаешь список файлов в текстовый файл (по расписанию или разово), после чего забираешь файл и ищешь в нем.
Насчет сотен тысяч ты обманываешь.

[Хакер]

Какие ОС и ФС на этих компьютерах?

[jangle]

Если клиент-сервер, то ищешь на удаленном компе, возвращаешь совпадения.
Если клиент, то выгружаешь список файлов в текстовый файл (по расписанию или разово), после чего забираешь файл и ищешь в нем.
Насчет сотен тысяч ты обманываешь.

Не обманываю, например у меня в папке Windows 24670 файлов и 2720 папок. А там папка объемом сотни гигабайт.
Файлы переодически изменяются, добовляются новые, переименовываются

[jangle]

Какие ОС и ФС на этих компьютерах?

На сетевой папке Windows Server 2003 с NTFS

[Antonariy]

Нужно включить на сервере службу индексации (если выключена) и спрашивать у нее через, не поверишь, ADODB:

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

On Error Resume Next

Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = "provider=msidxs;"
objConnection.Properties("Data Source") = "Данные"
objConnection.Open

Set objCommand = CreateObject("ADODB.Command")

strQuery = "Select Filename from Scope()"

Set objRecordSet = objConnection.Execute(strQuery)

Do While Not objRecordSet.EOF
    Wscript.Echo objRecordSet("Filename")
    objRecordSet.MoveNext
Loop

Where, как понимаешь, тоже не возбраняется. Только сначала нужно создать каталог:

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

On Error Resume Next

Set objAdminIS = CreateObject("Microsoft.ISAdm")
objAdminIS.Stop()

Set objCatalog = objAdminIS.AddCatalog("Данные","c:\Данные")
objAdminIS.Start()

Запрос клиента к службе на сервере проще всего сделать через asp-скрипт.
Так же возможно проканает "provider=msidxs;server=ServerName", если права настроить.

[awl100Alex]

Ну и сколько часов будут индексироваться папки на сервере?

[Antonariy]

Несколько минут. Эта операция одноразовая, потом сервер только правит индекс при изменении содержимого каталога.

[awl100Alex]

Хорошо, но вот странно: если эта индексация такая удобная и быстрая штука, почему же тогда Майкрософт эту службу во всех ОС отключили по умолчанию???

[Antonariy]

Потому что она не для чайников.
И потому что эта служба является главным пожирателем ресурсов. И тут уж автор пусть решает, что ему важнее — быстрый поиск или свободные ресурсы.

Вспомнил, что индексируются не только свойства файла, но и его содержимое, так что индексация действительно займет часы или даже дни. Не знаю, можно ли это изменить.

[jangle]

Проблема в том, что сервер мне недоступен, т.е. включить службу там не могу.

[Antonariy]

Тогда действуй, как сказал alibek. Однако, если файлы изменяются часто и какой-то файл может понадобиться вкоре после добавления, то это не выход, нужно договариваться с админом.