Поиск файла в сетевой директории командой из формы

@Braser · Регистрация: 16.03.2013

Студворк — интернет-сервис помощи студентам

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

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

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

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

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

mobile · 23.08.2017, 14:01

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

Visual Basic
1
    FindRecurs sd & ".pdf"

@Braser · 23.08.2017, 14:03 **[ТС]**

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

shanemac51 · 23.08.2017, 14:05

Сообщение от Braser

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

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

@Braser · 23.08.2017, 14:06 **[ТС]**

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

shanemac51 · 23.08.2017, 14:06

Сообщение от mobile

Дело в том, что в поле Деталь имя файла без расширения

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

@Braser · 23.08.2017, 14:12 **[ТС]**

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

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

Сообщение от mobile

FindRecurs sd & ".pdf"

Точно нашел!!!

shanemac51 · 23.08.2017, 14:14

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

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

mobile · 23.08.2017, 14:16

Сообщение от shanemac51

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

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

shanemac51 · 23.08.2017, 14:19

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

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

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

mobile · 23.08.2017, 14:27

Сообщение от shanemac51

я хотела найти по маске det11*.*

Надо заменить строку

Visual Basic
1
If fso.FileExists(cat(1, i) & "\" & file) Then

на

Visual Basic
1
If Dir(cat(1, i) & "\" & file & ".*") <> "" Then

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

@Braser · 23.08.2017, 14:50 **[ТС]**

Указал ему расширение, он сразу хватанул, подскажите как правильно указать ему еще два...!!!
mobile, вы как всегда правы, гигант мысли, отец русского программирования.... ( далее, только неприкрытая лесть)

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

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

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

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

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

Сообщение от mobile

1
If fso.FileExists(cat(1, i) & "" & file) Then

mobile · 23.08.2017, 14:57

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim f
    For i = 0 To UBound(cat, 2)
        If Dir(cat(1, i) & "\" & file & ".*") <> "" Then
            f = Dir(cat(1, i) & "\" & file & ".*")
            Do Until f = ""
                newname = InputBox("Новое имя файла " & f, , cat(1, i) & "\" & f)
                If newname <> "" And newname <> cat(1, i) & "\" & f Then
                    Name cat(1, i) & "\" & f As newname
                End If
                f = Dir
            Loop
        End If
    Next

@Braser · 23.08.2017, 14:59 **[ТС]**

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

Visual Basic
1
2
3
4
5
6
    Dim LResult As String, path, i, s, newname, sd
'    path = Array("L:\KDBANK\PLAZMA", "L:\KDBANK\PARTDIR", "L:\KDBANK\ZAGOTOVKA")
    sd = Me.Деталь
    FindRecurs sd & ".cp"
    FindRecurs sd & ".txt"
    FindRecurs sd & ".cdw"

вроде работает как надо, я доволен

@Eugene-LS · 23.08.2017, 15:02

Сообщение от Braser

и все найденные нужно пометить как неактуальные, дописав после наименования и расширения какое то условное слово, допустим "изменен".

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

mobile · 23.08.2017, 15:20

Сообщение от Eugene-LS

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

'Рекурсивный обход подпапок...

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

, хватит на все. Рекурсия слишком затратна на больших списках. А на маленьких замечательно работает

@Braser · 23.08.2017, 15:37 **[ТС]**

Вариантик тоже отличный, единственое, что я, если позволите, убрал бы

Visual Basic
1
& Format(iRenID, "000")

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

@Eugene-LS · 23.08.2017, 15:42

Сообщение от mobile

Рекурсия слишком затратна на больших списках. А на маленьких замечательно работает

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

@Braser · 23.08.2017, 15:42 **[ТС]**

Сообщение от mobile

Рекурсия слишком затратна на больших списках

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

@Eugene-LS · 23.08.2017, 16:07

Сообщение от Braser

там достаточно просто пометки "-изменен"
+ Уж если изменил файл, то при повторном нажатии он его уже не видит

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

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

shanemac51 · 23.08.2017, 16:35

Сообщение от Eugene-LS

А на windows ... действительно процедура захлебнулась.

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

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .

@Braser 397 / 140 / 39 Регистрация: 16.03.2013 Сообщений: 1,570
	23.08.2017, 14:03 [ТС]
	Может не работать, если я вместо пути из примера указываю сетевой ресурс имеющий в указании пути кириллицу? Допустим (L:\Контрольные документы\PLASMA ) и т.п. 0

@Braser 397 / 140 / 39 Регистрация: 16.03.2013 Сообщений: 1,570
	23.08.2017, 14:06 [ТС]
	В каждой папке с изделием должно находится 3 файла имеющих одинаковое название, но разное расширение. - .dxf; .CDW; .CP их все 3 нужно найти и пометить 0

shanemac51 Модератор 12512 / 5086 / 814 Регистрация: 07.08.2010 Сообщений: 14,973 Записей в блоге: 4
	23.08.2017, 14:19
	у вас здесь имя точное я хотела найти по маске дет11. или дет12. при структуре типичной записи (дет/сб)(код)-(вариант)-(готовность).(формат) например найти дет11 , сделанную или отливкой или ковкой, проверить сколько вариантов техпроцесса дет12 имеется в наличии(где, статус готовности...) 1

Поиск файла в сетевой директории командой из формы

Решение