Поиск файлов в Delphi

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

Одиссей, добавлено 3.08.10, 13:48:30
Скачал демонстрационную программу. Интересно, почему некоторые каталоги на диске с: не были отмечены как каталоги, и не указан их размер, например, папка Program Files?

Автор, добавлено 3.08.10, 13:51:53
Действительно, я думаю, это причуда системы Windows. Наверное, она не хочет показывать данные своих особенно важных папок. С другой стороны, сам каталог Windows был найден именно как папка. Надо подумать над этим вопросом.

Зелёный, добавлено 14.11.10, 10:47:59
А мне нужно сделать в программе поиск информации на компе пользователя. Как это осуществить?

Автор, добавлено 14.11.10, 11:02:15
Ну, для начала нужно определить, сколько дисков находится в компьютере. Потом задать программу поиска последовательно по всем дискам всех файлов, или можно спросить пользователя, желает ли он искать также в системных и скрытых файлах. Как это сделать, читайте выше в тексте урока. Найденные файлы записывайте в список или таблицу. Затем уже (или даже параллельно, но для этого нужно освоить многопоточную работу) можно загружать найденный файл например в stringlist или Memo и искать в тексте нужную фразу - просто с помощью функции pos. Если фраза найдена, выводить этот файл пред ясны очи пользователя.
Ничего заумного, но подумать самому придётся.

Зелёный, добавлено 14.11.10, 12:15:00
Спасибо за ответ, план ясен. Начну потихоньку, а если что, могу рассчитывать на вашу помощь?

Автор, добавлено 14.11.10, 12:30:31
Поиск файлов и поиск в файлах - интересная тема. Конечно, помогу чем смогу, но предупреждаю сразу, за вас ничего кодировать не стану.

Newsman, добавлено 22.12.10, 07:39:33
А как перейти на тот диск, на котором требуется искать? Ведь если искать по всему содержимому комьютера, требуется определить сколько дисков в системе и их имена...

Автор, добавлено 22.12.10, 08:45:43
Для определения дисковой структуры можно использовать разные способы, например, воспользоваться функцией DirectoryExsists, проверяя наличие корневой директории:

 

  if DirectoryExists('C:\') //Или просто 'C:'

    then Caption:='Диск C в системе';

И перебрать все буквы от A до Z. Правда, если гибкого диска в дисководе А не будет, он не определится, конечно. Но А можно и пропустить. Но есть и более продвинутые способы, с помощью WinAPI функции GetLogicalDrives. Бросим на Форму кнопку Button и список ListBox. С помощью процедур:



function DriveExists (Drive: Byte) : boolean;

begin

Result := Boolean (GetLogicalDrives and (1 shl Drive));

end;



procedure TForm1.Button1Click(Sender: TObject);

var Drive : byte;

begin

for Drive := 0 to 25 do

  if DriveExists (Drive) then

    ListBox1.Items.Add (Chr(Drive+$41));

end;

нажав на кнопку, в компоненте ListBox получим всю структуру дисков в компьютере.

Дэц, добавлено 8.01.12, 13:43:45
А как сделать так, чтобы можно было обработать найденные файлы, переместить их к примеру.

Автор, добавлено 8.01.12, 17:59:36
Вверху есть ссылка Таблица функций, там приведены функции для работы с файлами.

Аноним, добавлено 2.05.12, 01:20:43
Спасибо!)

Николай, добавлено 22.09.13, 08:12:15
Ни чо не понял.

Автор, добавлено 22.09.13, 21:11:16
А просто читать недостаточно. Нужно пробовать самому, "ручками", сделать как написано. После нескольких проб и ошибок поймёшь. Другого способа понять нет. Только когда сам...

Евгений, добавлено 3.11.13, 05:33:11
Здравствуйте! Подскажите пожалуйста как создать файл в под папке? Я создал несколько глобальных переменных и главную для основной папки в которой будут остальные. Код ниже создаёт только одну папку, а как поместить туда все папки я не знаю (я прибавил имя папки программа пишет путь не найден)
FilesSAMPServers:=ExtractFilePath(ParamStr(0))+'\Файлы SAMPServers\Имена серверов';
CreateDir(FilesSAMPServers);
If FileExists(FilesSAMPServers+'\Имена серверов.ini') then
begin
CreateDir(FilesSAMPServers);
sDBComboBox1.Items.LoadFromFile(FilesSAMPServers+'\Имена серверов.ini');

Автор, добавлено 3.11.13, 09:10:00
Не совсем понятно, почему у вас

CreateDir(FilesSAMPServers);// - папка создаётся
If FileExists(FilesSAMPServers+'\Имена серверов.ini') then// - откуда в только что созданной папке возьмётся файл?
begin
CreateDir(FilesSAMPServers);// - папка создаётся повторно?

А файл создаётся оператором Rewrite. Почитайте урок "Классическая работа с файлами". Но вначале нужно создать его структуру, тип. Если это текстовый файл, то проще работать с компонентом Memo.

Евгений, добавлено 3.11.13, 10:48:13
Я в sDBComboBox1 создаю стринглист
var
SL: TStringList;
S: String;
begin
SL:=TStringList.Create;
SL.Add(S);
S:=sDBComboBox1.Text;
sDBComboBox1.Items.Add(S);
sDBComboBox1.Items.SaveToFile('Имена серверов.ini');
end;

Евгений, добавлено 3.11.13, 11:04:45
Я вероятно не верно выразился с созданием файла проблем нет мне нужно папку с файлом поместить в главную папку, которая создаётся в директории с программой в которой создастся ещё столько папок сколько создастся файлов.

Автор, добавлено 3.11.13, 11:09:29
Ну и что? Не понимаю вас. И что тут у вас:

SL:=TStringList.Create;
SL.Add(S);//S не определено, чего мы записали?
S:=sDBComboBox1.Text;//это текст бокса
sDBComboBox1.Items.Add(S);//не проще сразу в бокс записать его текст:

with sDBComboBox1 do
Items.Add(Text);

Насчёт того, как запихнуть папку в папку - нужно её там создать. Вот код, создающий папку А, в ней ещё одну А, а в ней ещё одну:

CreateDir('A');
CreateDir('A\A');
CreateDir('A\A\A');

SaveToFile('A\A\A\file.ini');//сохраняет файл

Таким образом, мы не копируем папку с файлом, а создаём внутри нужной папки ещё сколько хотим папок, и туда сохраняем или копируем файл. А лишние исходные папки удаляем.

Евгений, добавлено 3.11.13, 11:27:22
Спасибо большое просто я папку через переменную создать пытался.
А на счёт ветви папок, я имел ввиду:
CreateDir('A\A1\file.ini');
CreateDir('B\B1\file.ini');
CreateDir('C\C1\file.ini');
CreateDir('D\D1\file.ini');

Евгений, добавлено 3.11.13, 11:49:12
Мне не удаётся создать путь SaveToFile('A\A\file.ini') система его не находит
просто мне нужно чтобы программа создавала его в директории с программой в этом и заключается проблема.

Автор, добавлено 3.11.13, 11:57:52
Да, это проблема. Есть понятие текущей директории - именно туда система сохраняет файлы, адреса которых заданы неявно. И иногда непонятно, какая директория (папка) в данный момент является текущей. Поэтому я лично в НЕ Тестовых приложениях всегда указываю директории явно, задавая полный адрес. Папка вашей программы (.exe файла):

FilePath:=ExtractFilePath(Application.ExeName);

Поэтому адрес файла в этой папке

FileName:=FilePath+'file.ini';

Насчёт слеша не уверен, но вроде он не нужен, проверьте.

Евгений, добавлено 3.11.13, 12:22:19
Я не уверен, что правильно понял код но вот что у меня получилось
begin
FilePath:=ExtractFilePath(Application.ExeName);
FileName:=FilePath+'file.ini';
CreateDir(FilePath+'file.ini');
If FileExists(FilePath+'file.ini') then
begin
sDBComboBox1.Items.LoadFromFile(FilePath+'file.ini');
end;
end;

Автор, добавлено 3.11.13, 12:42:30
FilePath:=ExtractFilePath(Application.ExeName); // - это адрес папки с вашим exe-файлом
FileName:=FilePath+'file.ini'; // - это имя файла в в данной папке
CreateDir(FilePath+'file.ini'); //то что в скобках это FileName (строчка выше), что за хрень, вы по имени файла создаёте папку
If FileExists(FilePath+'file.ini') then //проверяете наличие файла - его нет, вы папку создали, а не файл
sDBComboBox1.Items.LoadFromFile(FilePath+'file.ini'); //загружаете из файла??? Даже если бы он и был создан - был бы пуст, чего из него загружать???

Урок Delphi 7
Работа с файлами в Delphi