Форум на Исходниках.RU

Как получить список всех файлов в папке

Chow — Thu, 29 Apr 2004 14:14:54 +0000

Chow: Vit, полностью согласен.
Так и сделал с самого начала. Тем более, что я итак переводил все на С++, так что не разобравшись - сделать было бы такой перевод трудно. А поднял топик потому, что подумал что в коде из ФАКа была ошибка (оказалось не ошибка, а я просто криво на С++ перевел :)) и... вообще потом пожалел что поднял... :)

Как получить список всех файлов в папке

Vit — Thu, 29 Apr 2004 12:34:31 +0000

Vit: Коды в FAQ - это не библиотека, которую можно бездумно подключить и использовать, это только направление в котором думать надо. Простейший пошаговый проход кода с просмотром на каждой строки переменных легко решает все Ваши вопросы. Люди старались попридумывали в Дельфи клавиши - F7, F8, Shift-F7, Ctrl-F5, Ctrl-F7, F4 - вот и надо их использовать, развели демагогию на десяток топиков - а ведь тот код преобразовать под свои нужды работа минут на 10, да разбираться в нём не фиг делать, достаточно ПРОСТО ПОШАГОВО ЕГО ВЫПОЛНИТЬ!

Как получить список всех файлов в папке

Генерал — Wed, 28 Apr 2004 16:37:46 +0000

Генерал:

Цитата Chow @ 28.04.04, 14:11

Цитата

Генерал, 28.04.04, 13:53
список всех файлов

А по маске?

Chow!
Сделай вот так:

Цитата

Procedure ScanDir(StartDir,Mask: String; List: TStrings);
Var SearchRec: TSearchRec;
Begin
IF Mask=''then Mask:='*.*';
IF StartDir[Length(StartDir)]<>'\'then StartDir := StartDir + '\';
// Сначала находим и печатаем все файлы из
// главной папки по маске Mask
List.Add(StartDir);
IF FindFirst(StartDir+Mask,faAnyFile,SearchRec)=0 then Repeat
IF(SearchRec.Attr and faDirectory)<>faDirectory then
List.Add(StartDir+SearchRec.Name);
Until FindNext(SearchRec)<>0;
// Теперь находим все подпапки и продолжаем в них поиск
IF FindFirst(StartDir+'*.*',faAnyFile,SearchRec)=0 then Repeat
IF((SearchRec.Attr and faDirectory)=faDirectory)and
((SearchRec.Name<>'..')and(SearchRec.Name <> '.'))then
ScanDir(StartDir+SearchRec.Name+'\',Mask,List);
Until FindNext(SearchRec)<>0;
FindClose(SearchRec);
end;

и будет тебе счастье! :rolleyes:

Как получить список всех файлов в папке

Song — Wed, 28 Apr 2004 14:35:08 +0000

Song:

Цитата

Mischka, 28.04.04, 06:05
А можно поподробнее? Почему у вас время ответа такое разное? А не первый раз замечаю, что сообщений друг друга не видите Просто интересно.

Интересно? :)
Да всё просто. Например, прихожу на работу, открываю форум. Там к примеру 10 непрочитанных сообщений. Я их все махом открываю. Потом кто-то приходит, меня напряжёт чем-то либо я переключусь на программу и "увлекусь". Т.е. сообщение открыто в окне без ответов, а в это время на них кто-то отвечает. Потом "оторвусь" от работы, начинаю отвечать, не обновив топики. Вот и всё. :)

Как получить список всех файлов в папке

Anatoly Podgoretsky — Wed, 28 Apr 2004 11:25:45 +0000

Anatoly Podgoretsky: Это не ошибка а процедуре, а ошибка в логике того кто использует, он почему то чситает, что по маске *.txt ему должны выдать и другие папки, которые не устраивают это маске. Маска для навигации должна быть *.*, а поиск должен делаться сравнение файлов с маской поиска.

В моем FAQ есть иакая процедура поиск файла по маске во всех папках по маске *.*.
http://podgoretsky.com/ftp/Language/nps/ru.delphi.html#N158

Как получить список всех файлов в папке

Chow — Wed, 28 Apr 2004 11:11:27 +0000

Chow:

Цитата

Генерал, 28.04.04, 13:53
список всех файлов

А по маске?

Как получить список всех файлов в папке

Генерал — Wed, 28 Apr 2004 10:53:02 +0000

Генерал: всё работает1
вот уж не поленился, поставил на форму кнопочку и ListBox...
скопировал программку из фака, которую ты выложил...один к одному...
давлю на кнопочку... а в листбоксе - чудо!.... список всех файлов из папки, которую я задал!...ну и из всех попдпапок соответственно! :D

Как получить список всех файлов в папке

Chow — Wed, 28 Apr 2004 10:05:06 +0000

Chow: Это был мой совет вам, на счет попробовать.
Сам я уже давно попробовал - поэтому и поднял топик.

Как получить список всех файлов в папке

Генерал — Wed, 28 Apr 2004 09:38:25 +0000

Генерал:

Цитата Chow @ 28.04.04, 12:30

А реально попробовать? :D

вот теперь тебе осталось сесть и реально пробывать...и ответы на свои вопросы найдёшь!
...можешь есчо книжечку по дельфи почитать...там тоге всё хорошо написано... :D

Как получить список всех файлов в папке

Chow — Wed, 28 Apr 2004 09:30:36 +0000

Chow:

Цитата

Генерал, 28.04.04, 12:19
ну вот, вроде всё разжевал и по полочкам разложил...

А реально попробовать? :D

Самое первое условие не проходит:

IF FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then

если, например, в папке C:\Temp\ нету ни одного файла, а только подпапки в которых есть уже файлы.

Как получить список всех файлов в папке

Генерал — Wed, 28 Apr 2004 09:19:48 +0000

Генерал: сначала анализируется атрибут:

Цитата

IF (SearchRec.Attr and faDirectory) <> faDirectory then

если это не папка (<> faDirectory), то это файл (естесно), и если у него расширение .тхт, то он попадает в список:

Цитата

List.Add(StartDir + SearchRec.Name

если это папка, то выполняется сначала проверка, системная ли это папка:

Цитата

IF (SearchRec.Name <> '..') and (SearchRec.Name <> '.'

если не системная, то программа вызывает саму себя, а в качестве папки задаёт подпапку:

Цитата

{ Рекурсивный вызов }
ScanDir(StartDir + SearchRec.Name + '\',Mask,List);

ну вот, вроде всё разжевал и по полочкам разложил... :D

Как получить список всех файлов в папке

Chow — Wed, 28 Apr 2004 08:32:47 +0000

Chow:

Цитата

Генерал, 28.04.04, 11:08
если встречается папка, то программа вызывает саму себя для этой подпапки и поиск идёт уже в подпапке..вот тут:

В том то и дело, что папка НЕ встречается, т.к. не удовлетворяет маску *.txt

IF FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then

Например я задам StartDir = 'C:\Temp\', а Mask = '*.txt'. Процедура найдет все тхт-файлы лишь в папке C:\Temp\. А если в этой папке будут подпапки:
C:\Temp\1\
C:\Temp\2.txt\
C:\Temp\3\
то она заглянет лишь в C:\Temp\2.txt\, а C:\Temp\1\ и C:\Temp\3\ пропустит, т.к. они не удовлетворяют условию поиска.

Как получить список всех файлов в папке

Генерал — Wed, 28 Apr 2004 08:08:08 +0000

Генерал:

Цитата Chow @ 28.04.04, 08:48

Цитата

Генерал, 27.04.04, 18:45
если задашь маску *.* - то выберутся все файлы из всех папок и подпапок...
если задашь *.txt, то выберуться только текстовые файлы...

если встречается папка, то программа вызывает саму себя для этой подпапки и поиск идёт уже в подпапке..вот тут:

Цитата

{ Рекурсивный вызов }
ScanDir(StartDir + SearchRec.Name + '\',Mask,List);

...и т.д., пока не просмотрит все подпапки...

так что в факе всё прально...

Как получить список всех файлов в папке

Chow — Wed, 28 Apr 2004 05:48:51 +0000

Chow:

Цитата

... только из ТЕКУЩЕЙ папки.
Все файлы из подпапок текущей папки не попадают. Т.к. маска *.txt фильтрирует не только список файлов, но и список папок (папки тоже ш могут иметь расширение).

Коротче: постараюсь доделать сам. Просто поднял топик, что-бы обратить внимание на возможную ошибку в ФАКе.

Как получить список всех файлов в папке

Mischka — Wed, 28 Apr 2004 02:05:30 +0000

Mischka:

Цитата

Song, 27.04.04, 23:50
я не видел сообщения Vit'а

А можно поподробнее? Почему у вас время ответа такое разное? А не первый раз замечаю, что сообщений друг друга не видите :) Просто интересно.

Как получить список всех файлов в папке

Song — Tue, 27 Apr 2004 17:50:20 +0000

Song: Vestnik, когда я писал своё сообщение я не видел сообщения Vit'а. Вот в чём секрет.

Как получить список всех файлов в папке

Vestnik — Tue, 27 Apr 2004 17:47:56 +0000

Vestnik: Есессно получу минус в рейтинге, но в очередной раз удивляет реакция ( во времени) уже не модератора, а администратора Song-а
С уважением

Как получить список всех файлов в папке

Генерал — Tue, 27 Apr 2004 15:45:11 +0000

Генерал:

Цитата Chow @ 27.04.04, 16:08

Цитата

Если задать маску отличную от *.* - то не найдется ни одно вложение в подпапках, так как имена папок тоже фильтрируются по этой маске.

ОК. Ну, а на счет маски? Может тоже все нормально в ФАКЕ - просто я чего-то туплю?... :wacko:

если задашь маску *.* - то выберутся все файлы из всех папок и подпапок...
если задашь *.txt, то выберуться только текстовые файлы...ну и т.д.

сами папки в список не попадут, т.к. мы их отсеяли атрибутом, а маской отсееваем по именам...

Как получить список всех файлов в папке

Chow — Tue, 27 Apr 2004 13:08:39 +0000

Chow: Сори. Тормознул, наверное, малёха. :(
Тут побитное and, а не логическое, да?
(в С++ есть разница & и && - соответственно).

ОК. Ну, а на счет маски? Может тоже все нормально в ФАКЕ - просто я чего-то туплю?... :wacko:

Как получить список всех файлов в папке

Генерал — Tue, 27 Apr 2004 12:46:49 +0000

Генерал:

Цитата Chow @ 27.04.04, 14:52

Ошибка 1:

IF (SearchRec.Attr and faDirectory) <> faDirectory then

Это еще что за условие? Оно ж ВСЕГДА выполнятся будет.

faDirectory - это атрибут директории (типа папка)
и если в атрибуте присутствует атрибут faDirectory , то такие варианты исключаются...т.е. папки не будут указываться в списке...

Как получить список всех файлов в папке

Chow — Tue, 27 Apr 2004 11:52:05 +0000

Chow: Ошибки в Факе на эту тему. :huh:

Вот та процедура, что там предлагается:

Procedure ScanDir(StartDir: String; Mask:string; List:TStrings);

{ Процедура выводит список директории в список List, начиная с директории, указанной в StartDir. Mask - маска для получения файлов

Источник delphi.mastak.ru

Var SearchRec : TSearchRec;

Begin

IF Mask ='' then Mask:= '*.*';

IF StartDir[Length(StartDir)] <> '\' then StartDir := StartDir + '\';

IF FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then

Begin

Repeat

{ Чтобы выполнение "не подвисало" }

Application.ProcessMessages;

IF (SearchRec.Attr and faDirectory) <> faDirectory then

List.Add(StartDir + SearchRec.Name) else

IF (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then

Begin

List.Add(StartDir + SearchRec.Name + '\');

{ Рекурсивный вызов }

ScanDir(StartDir + SearchRec.Name + '\',Mask,List);

End;

Until FindNext(SearchRec) <> 0;

FindClose(SearchRec);

End; {IF}

end;

Ошибка 1:

IF (SearchRec.Attr and faDirectory) <> faDirectory then

Это еще что за условие? Оно ж ВСЕГДА выполнятся будет.

Ошибка 2:
Если задать маску отличную от *.* - то не найдется ни одно вложение в подпапках, так как имена папок тоже фильтрируются по этой маске.

Как получить список всех файлов в папке

Song — Sun, 07 Dec 2003 05:18:16 +0000

Song: Go to FAQ

Как получить список всех файлов в папке

Vit — Sun, 07 Dec 2003 02:47:00 +0000

Vit: А в FAQ заходить не пробовали?

Как получить список всех файлов в папке

Unregistered — Sun, 07 Dec 2003 01:07:31 +0000

Unregistered: Как получить список всех файлов в определённой директории ?