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