Всем привет! Люди, в субботу зачет, помогите!
Задача: "Прочитать из корневого каталога дискеты, все файлы с расширением *.doc"
Кто знает, киньте, пожалуйста, пример кода!
Что значит "прочитать"? Список что-ли вывести? Тогда это FindFirst+FindNext - три строчки кода...
Да, вывести список, а ты не мог бы напечать три этих строчки?
uses dos;
var DirInfo: SearchRec;
begin
FindFirst('A:\*.DOC', Archive, DirInfo);
while DosError = 0 do begin
Writeln(DirInfo.Name);
FindNext(DirInfo);
end;
end.
Кто-нибудь сможет, буквально за 10 мин помощь мне?!Мне необходимо написать программу на Паскале, считающую количество файлов созданных в текущем месяце на корневом каталоге дискеты
Volvo, большое спасибо, все работает! Но где там идет использование прерывания 13h?
Это =MaZaTRaKeR=! Volvo, прости пожалуйста, но, нам нельзя использовать dos как сделать эту же задачу с использованием 13h?