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

[#Azamat]

А есть ли вообще такой файл на этом диске? Увы но это отнюдь не праздный вопрос. Им задаются многие пользователи. Программа демонстрирует поиск группы файлов с расширением exe (программ). Обратите внимание, как происходит обращение к полю переменной имеющей тип - запись (через точку). Научитесь при работе с файлами использовать обобщающие символы - ? и *.

Uses Dos;
Var
S:SearchRec;
Begin
FindFirst('*.exe',AnyFile,S);
While DosError=0 do 
Begin
WriteLn(S.Name);
FindNext(S);
End; 
End.

Автор: Неизвестен