Код: Выделить всё
uses windos;
var
DirInfo : TSearchRec;
f : text;
begin
Assign(f,'c:\x.txt');{Назначает файловой переменной имя внешнего файла
(нашего файла, куда мы будем записывать интересующие
нас данные)}
Rewrite(f);{Создает и открывает новый файл.}
ChDir('c:\progra~1');{Здесь указывем интересующий нас путь}
FindFirst('*.*',faAnyFile, DirInfo);{Ищет файл в заданном каталоге.}
While DosError = 0 Do {Пока не найдутся все данные}
Begin
Writeln(f,DirInfo.Name);{здесь записываем в наш файл, найденное имя
файла или каталога}
FindNext(DirInfo);{Находит следующее вхождение файла,
соответствующего имени и набору атрибутов,
определенных в предшествующем обращении к
процедуре FindFirst.}
End;
Close(f);{Закрываем наш файл}
end.