Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Чтение из корневого каталога дискеты

Автор: =MaZaTRaKer= 21.12.2006 18:49

Всем привет! Люди, в субботу зачет, помогите!
Задача: "Прочитать из корневого каталога дискеты, все файлы с расширением *.doc"
Кто знает, киньте, пожалуйста, пример кода!

Автор: volvo 21.12.2006 18:55

Что значит "прочитать"? Список что-ли вывести? Тогда это FindFirst+FindNext - три строчки кода...

Автор: =MaZaTRaKer= 21.12.2006 18:57

Да, вывести список, а ты не мог бы напечать три этих строчки?

Автор: volvo 21.12.2006 19:00

uses dos;
var DirInfo: SearchRec;
begin
FindFirst('A:\*.DOC', Archive, DirInfo);
while DosError = 0 do begin
Writeln(DirInfo.Name);
FindNext(DirInfo);
end;
end.

Автор: Гость 23.12.2006 13:25

Кто-нибудь сможет, буквально за 10 мин помощь мне?!Мне необходимо написать программу на Паскале, считающую количество файлов созданных в текущем месяце на корневом каталоге дискеты

Автор: =MaZaTRaKer= 23.12.2006 13:36

Volvo, большое спасибо, все работает! Но где там идет использование прерывания 13h?

Автор: volvo 23.12.2006 16:52

Цитата
Но где там идет использование прерывания 13h?
А где у тебя в задании было сказано про использование этого прерывания? Я что, телепат?

Автор: Гость 26.12.2006 18:57

Это =MaZaTRaKeR=! Volvo, прости пожалуйста, но, нам нельзя использовать dos как сделать эту же задачу с использованием 13h?