@Braser

Добрый день всем!
Подскажите пожалуйста, можно ли выполнить поиск файла с заданным названием, который находится в сетевой папке предприятия и используется для работы производственными подразделениями.

Вкратце для чего.
--Имеем некий справочник, редактируемый и дополняемый конструкторским бюро.
--Справочник выполнен в виде таблицы, как в примере.
--В оригинале разумеется данных больше, но они как бы имеют второстепенное значение в данном вопросе.
--На данный момент, если производятся какие то изменения в КД, то конструктор должен лезть в "дебри сети" , зайти в папку производственного подразделения и там отыскать файл, чтобы отметить его некой меткой, дабы его брали в работу только после просмотра и необходимой коррекции.

На сетевом диске М:\ у каждого из подразделений имеется своя папка например П1;П2 и П3., то есть путь к папкам получается такой :М:\П1 или М:\П2 или М:\П2.

Возможно ли автоматизировать поиск нужного файла в нужной директории по команде из формы.
В примере вобщем-то интуитивно понятно в чем суть вопроса.
Сложность в том еще, что в папках П1, П2 и П3 имеется несколько десятков подпапок, нужно чтобы в них поиск тоже производился.Вот.

Буду очень признателен за живой пример. Спасибо.

Вложения

ПримерПоиск.7z (24.4 Кб, 10 просмотров)

0

mobile

Проверка проблема, конечно. Дело в том, что в поле Деталь имя файла без расширения. И разумеется ничего не находится. Я уже писал об этом, но ТС как-то не отреагировал. А надо всего лишь к параметру file подставить расширение, например

1

@Braser

Может не работать, если я вместо пути из примера указываю сетевой ресурс имеющий в указании пути кириллицу? Допустим (L:\Контрольные документы\PLASMA ) и т.п.

0

shanemac51

это я не попробовала, а так нормально работает(правда на локальных каталогах)

1

@Braser

В каждой папке с изделием должно находится 3 файла имеющих одинаковое название, но разное расширение. - .dxf; .CDW; .CP их все 3 нужно найти и пометить

0

shanemac51

это тоже не сработало, задала точное имя

1

@Braser

возможно необходимо указать все расширения файлов, которые нужно найти?

Добавлено через 4 минуты
Точно нашел!!!

0

shanemac51

при переименовании(когда то и мне это требовалось) делалась проверка ине и комментариями

--нет старого --	ошибка
--есть старое --нет нового --	норма
--есть старое --есть новое ----	что сделать(переписать или изменить новое имя)

1

mobile

У меня все находится, даже при большей глубине вложенности

Миниатюры

 

1

shanemac51

у вас здесь имя точное
я хотела найти по маске дет11*.* или дет12*.*

при структуре типичной записи (дет/сб)(код)-(вариант)-(готовность).(формат)

например найти дет11 , сделанную или отливкой или ковкой, проверить сколько вариантов техпроцесса дет12 имеется в наличии(где, статус готовности...)

1

mobile

Надо заменить строку
на
Тогда не надо будет в параметре функции задавать расширение

1

@Braser

Указал ему расширение, он сразу хватанул, подскажите как правильно указать ему еще два...!!!
mobile, вы как всегда правы, гигант мысли, отец русского программирования.... ( далее, только неприкрытая лесть),если честно откровенно, ОЧЕНЬ ОЧЕНЬ БОЛЬШОЕ СПАСИБО за помощь ВсЕм ВсЕм, УРА!. ЗАРАБОТАЛА!!!! Это уже результат, без сомнения! И Я БУДУ СОВЕРШЕННО счастлив на сегодня,если вы мне подскажете ответ на это "....подскажите как правильно указать ему еще два расширения...!!!"

Добавлено через 6 минут
находит без расширения, но после прерименования начинает ругаться сюда

Name cat(1, i) & "/" & file As newname

Добавлено через 4 минуты
пишет Файл не найден!

Добавлено через 7 минут
это после замены

0

mobile

Последний блок с переименованием перепишите на

1

@Braser

Не знаю правильно или нет, забацал так:
вроде работает как надо, я доволен

0

@Eugene-LS

Так и сделал.
Вот мой вариантик решения - вроде пашет в подпапках всех уровней.

Вложения

ПримерПоиск_v02_Eugene-LS.rar (42.5 Кб, 20 просмотров)

2

mobile

Я тоже сначала пошел на рекурсию. Но когда в эксперименте при обходе папки винды забился стек, то ушел на построение массива. Здесь со стеком можно не волноваться , хватит на все. Рекурсия слишком затратна на больших списках. А на маленьких замечательно работает

1

@Braser

Вариантик тоже отличный, единственое, что я, если позволите, убрал бы
там достаточно просто пометки "-изменен" после расширения, и ассоциативность с приложением теряется, т.е. технолог видит что файл не хотит открываться, значит карачун ему настал.
И еще один вопрос.
Я допустим провожу по кнопке переименования все файлы согласно заданному поиском критерию. запускаю снова поиск этого файла и он мне находит те же файлы, только уже разумеется с пометкой "-изменен". В моем случае, это как бы нежелательно.
Тетенька работает рассеянная в архиве, производит замену, смотрит в список повыше и не помнит, то ли она уже эту деталь забанила, то ли нет, вторично ее открывает, там уже получается в конце файла "-изменен-изменен" тетенька начинает нервничать и жать чего попало и плодит варианты этих файлов....вообщем жизнь, думаю вы видели таких тетенек. вообщем как бы это можно убрать? Здесь надо -Уж если изменил файл, то при повторном нажатии он его уже не видит. Вот.
Извините за критику, в некотором роде, но я безусловно глубоко Вам благодарен, за то что прониклись моей проблемой и потратили думаю, немало времени, сам люблю помогать людям, если есть конечно возможность и силы.

0

@Eugene-LS

Спасибо за напоминание.
Я предварительно тестил на своей плотно набитой папочке с кучей файлов - нормально отработало.
А на windows ... действительно процедура захлебнулась.

1

@Braser

Это тоже весомый аргумент, на данный момент в базе 38000 деталей, если размножить на 3 вида файлов, (думаю что может заставят еще парочку документов цеплять) итого 5*38000... 190000...явно то мало не покажется.

0

@Eugene-LS

Учёл критику и пожелания

А насчёт массива я потом подумаю ...

Вложения

ПримерПоиск_v03_Eugene-LS.rar (40.3 Кб, 27 просмотров)

2

shanemac51

там есть защищенные папки --они и не открываются, их надо игнорировать

1