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

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

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

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

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

На сетевом диске М:\ у каждого из подразделений имеется своя папка например П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

    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

    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 ... действительно процедура захлебнулась.

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

shanemac51 Модератор 12106 / 4966 / 791 Регистрация: 07.08.2010 Сообщений: 14,584 Записей в блоге: 4
	23.08.2017, 14:05	43
	Сообщение от Braser Может не работать, если я вместо пути из примера указываю сетевой ресурс имеющий в указании пути кириллицу? Допустим (L:\Контрольные документы\PLASMA ) и т.п. это я не попробовала, а так нормально работает(правда на локальных каталогах) 1

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

shanemac51 Модератор 12106 / 4966 / 791 Регистрация: 07.08.2010 Сообщений: 14,584 Записей в блоге: 4
	23.08.2017, 14:06	45
	Сообщение от mobile Дело в том, что в поле Деталь имя файла без расширения это тоже не сработало, задала точное имя 1

@Braser 393 / 137 / 37 Регистрация: 16.03.2013 Сообщений: 1,497
	23.08.2017, 14:12 [ТС]	46
	возможно необходимо указать все расширения файлов, которые нужно найти? Добавлено через 4 минуты Сообщение от mobile FindRecurs sd & ".pdf" Точно нашел!!! 0

mobile 26818 / 14497 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	23.08.2017, 14:16	48
	Сообщение от shanemac51 это тоже не сработало, задала точное имя У меня все находится, даже при большей глубине вложенности Миниатюры 1

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

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

@Braser 393 / 137 / 37 Регистрация: 16.03.2013 Сообщений: 1,497
	23.08.2017, 14:50 [ТС]	51
	Указал ему расширение, он сразу хватанул, подскажите как правильно указать ему еще два...!!! mobile, вы как всегда правы, гигант мысли, отец русского программирования.... ( далее, только неприкрытая лесть),если честно откровенно, ОЧЕНЬ ОЧЕНЬ БОЛЬШОЕ СПАСИБО за помощь ВсЕм ВсЕм, УРА!. ЗАРАБОТАЛА!!!! Это уже результат, без сомнения! И Я БУДУ СОВЕРШЕННО счастлив на сегодня,если вы мне подскажете ответ на это "....подскажите как правильно указать ему еще два расширения...!!!" Добавлено через 6 минут находит без расширения, но после прерименования начинает ругаться сюда Name cat(1, i) & "/" & file As newname Добавлено через 4 минуты пишет Файл не найден! Добавлено через 7 минут это после замены Сообщение от mobile 1 If fso.FileExists(cat(1, i) & "" & file) Then 0

mobile 26818 / 14497 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	23.08.2017, 15:20	55
	Сообщение от Eugene-LS Вот мой вариантик решения - вроде пашет в подпапках всех уровней 'Рекурсивный обход подпапок... Я тоже сначала пошел на рекурсию. Но когда в эксперименте при обходе папки винды забился стек, то ушел на построение массива. Здесь со стеком можно не волноваться , хватит на все. Рекурсия слишком затратна на больших списках. А на маленьких замечательно работает 1

@Eugene-LS 10916 / 5608 / 1425 Регистрация: 05.10.2016 Сообщений: 15,852
	23.08.2017, 15:42	57
	Сообщение от mobile Рекурсия слишком затратна на больших списках. А на маленьких замечательно работает Спасибо за напоминание. Я предварительно тестил на своей плотно набитой папочке с кучей файлов - нормально отработало. А на windows ... действительно процедура захлебнулась. 1

@Braser 393 / 137 / 37 Регистрация: 16.03.2013 Сообщений: 1,497
	23.08.2017, 15:42 [ТС]	58
	Сообщение от mobile Рекурсия слишком затратна на больших списках Это тоже весомый аргумент, на данный момент в базе 38000 деталей, если размножить на 3 вида файлов, (думаю что может заставят еще парочку документов цеплять) итого 5*38000... 190000...явно то мало не покажется. 0

shanemac51 Модератор 12106 / 4966 / 791 Регистрация: 07.08.2010 Сообщений: 14,584 Записей в блоге: 4
	23.08.2017, 16:35	60
	Сообщение от Eugene-LS А на windows ... действительно процедура захлебнулась. там есть защищенные папки --они и не открываются, их надо игнорировать 1

Блоги программистов
Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .	Полезные поделки на Arduino, которые можно сделать самому raxper 06.01.2025 Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .	Подборка решений задач на Python IT_Exp 06.01.2025 Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .	С чего начать программировать микроконтроллеры raxper 06.01.2025 Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .
Из чего собрать игровой компьютер inter-admin 06.01.2025 Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .	Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного сумматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .

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

Решение