powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / поиск
12 сообщений из 12, страница 1 из 1
поиск
    #36321315
Эксперементатор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем здрасте.... Прошу помощи и совета...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub Кнопка2_Щелкнуть()
    Set fs = Application.FileSearch
    With fs
        .LookIn = "\\папка1\папка2\папка3\"
        .Filename = "*.xls"
        .SearchSubFolders = True
        If .Execute() >  0  Then         
            For n =  1  To .FoundFiles.Count
            Range("a:a").Cells(n,  1 ).Value = .FoundFiles(n)
        Next n
        End If
    End With
End Sub

данный код ищет файлы *.xls в каталогах и подкаталогах. Проблема в том, что размер конечной папки 16Гб... и поиск идёт долго, в итоге всё зависает.....
может есть какой-нибудь другой способ поиска?
...
Рейтинг: 0 / 0
поиск
    #36321329
Эксперементатор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
и ещё: находит не все файлы.... Через стандартный поиск windows их 8484, а у меня почему-то 5329....
...
Рейтинг: 0 / 0
поиск
    #36321450
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
тынц - изучайте!
...
Рейтинг: 0 / 0
поиск
    #36323598
Эксперементатор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Deggasad,

за тынц спасибо.....
...
Рейтинг: 0 / 0
поиск
    #36324967
Эксперементатор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
изучил инфу по ссылке, всё-равно не понимаю... где-то пропадает определённое количество файлов и всё тут.....
...
Рейтинг: 0 / 0
поиск
    #36325031
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Эксперементаторизучил инфу по ссылке, всё-равно не понимаю... где-то пропадает определённое количество файлов и всё тут.....
А по ссылке и небыло ответа на этот вопрос. Разве что там вы могли увидеть, что FileSearch иногда глючит, только подтверждений там толком небыло, возможно ваш случай одно из подтверждений как раз...

По ссылке в основном ответ на вопрос:
ТСможет есть какой-нибудь другой способ поиска?
...
Рейтинг: 0 / 0
поиск
    #36325038
Эксперементатор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Deggasad,

в том то и дело, что пробовал всеми приведёнными в ссылке способами, везде расхождение, пусть не большое, в несколько файлов, но есть.
В любом случае, спасибо...
...
Рейтинг: 0 / 0
поиск
    #36325047
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Значит формат все-таки другой какой-то у Вас еще присутствует.
...
Рейтинг: 0 / 0
поиск
    #36325053
Эксперементатор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Deggasad,

я ведь ищу только xls файлы. Он и находит только xls.... Какой другой формат? и где присутствует?
...
Рейтинг: 0 / 0
поиск
    #36325133
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вы ищите XLS,находите какое-то количество, и потом с чем-то его сравниваете, так с чем вы его сравниваете?
...
Рейтинг: 0 / 0
поиск
    #36325296
f
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А в проводнике все эти файлы видны?
...
Рейтинг: 0 / 0
поиск
    #36325454
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Эксперементатори ещё: находит не все файлы.... Через стандартный поиск windows их 8484, а у меня почему-то 5329....Я проэксперементировал с вашим кодом, у меня тоже через программу выдало меньше.
Посмотрел, что-за файлы нашёл проводник. Помимо файлов .xls встретились ярлыки, которые ссылаются на .xls , а так-же файлы .xls но не в папках в zip-архивах.
Думаю что основной излишек файлов как раз ложиться на zip-архивы и совсем чуть-чуть на ярлыки.
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / поиск
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]