Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / поиск / 12 сообщений из 12, страница 1 из 1
20.11.2009, 03:58
    #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
20.11.2009, 05:02
    #36321329
Эксперементатор
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск
и ещё: находит не все файлы.... Через стандартный поиск windows их 8484, а у меня почему-то 5329....
...
Рейтинг: 0 / 0
20.11.2009, 09:14
    #36321450
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск
тынц - изучайте!
...
Рейтинг: 0 / 0
21.11.2009, 06:24
    #36323598
Эксперементатор
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
поиск
Deggasad,

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

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

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

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


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