Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

14th
Сен

Поиск файла на диске

Posted by micher under Delphi

Dux

Как найти определенный файл на диске?

К примеру нужно найти файл test.mpg. В случае удачного поиска необходимо вывести путь к этому файлу. Может у кого есть готовый пример?

eoln



program Project1;
{$APPTYPE CONSOLE}
uses

  SysUtils;
procedure ScanDir(StartDir: string; FileNam: string);

var  SearchRec : TSearchRec;

begin

    if StartDir[Length(StartDir)] <> '\' then

         StartDir := StartDir + '\';

    try

    if FindFirst(StartDir+FileNam, faAnyFile, SearchRec) = 0 then

    repeat

        if (SearchRec.Attr and faDirectory) <> faDirectory then begin

            writeln(StartDir+SearchRec.Name);

            readln;

            halt

        end;

    until FindNext(SearchRec) <> 0;FindClose(SearchRec);

    except end;

    {разделение по каталогам}

    if FindFirst(StartDir+'*', faAnyFile, SearchRec) = 0 then

    try

    repeat

        if (SearchRec.Attr and faDirectory) = faDirectory then

        if (SearchRec.Name <> '..')

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

        begin

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

        end;

    until FindNext(SearchRec) <> 0;FindClose(SearchRec);

    except end;

end;
var

  chrI:char;

begin

  for chrI:='A' to 'Z' do begin

    //if not diskexist(chrI) then continue;

    ScanDir(chrI+':\','test.mpg') //имя файла

  end

end.