Pascal. Работа с файлами и каталогами.

[drunkfil]

Каким образом на Pascal'е можно реализовать запись в файл содержимого текущего каталога? Буду очень признателен если вы дадите ссылку на описание модулей Dos и WidDos, т.к. я так и не нашел ничего приличного.=(

[mons]

Можно так, вроде бы.

Код: Выделить всё

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.

[Игорь Акопян]

выполнить команду DOS:
dir c:\myfolder > folder.txt
правда будет немного лишних строк...