Работа с каталогом

@iluxa1810 · Регистрация: 03.09.2011

Author24 — интернет-сервис помощи студентам

В каталоге, где находится *.EXE файл программы находится некоторое кол-во *.TXT файлов.
Задача такова, надо просканировать директорию и записать все эти пути/имена в какой-нибудь массив.
Как это реализовывается?

@APALoff · 13.11.2013, 17:06

Для этого есть функции/процедуры модуля DOS:

Функции обработки файлов: Что делает:
FExpand (функция) Расширяет имя файла до полного.
FSearch (функция) Ищет файл.
FSplit (функция) Разбивает имя файла на три его компонента.
FindFirst (процедура) Ищет файл в заданном каталоге.
FindNext (процедура) Ищет следующий файл, соответствующий имени
и атрибутам, найденного ранее файла.
GetFAttr (процедура) Возвращает атрибуты файла.
SetFAttr (процедура) Устанавливает атрибуты файла.

Пример:

Pascal

{Findfrst.PAS}
{ Пример программы для процедур FindFirst и FindNext }
 
Uses Dos,Crt;
Var DirInfo : TSearchRec;
Begin
 FindFirst('*.PAS', faArchive, DirInfo);
 { Аналог команды DIR *.PAS }
 While DosError = 0 Do
  Begin
   WriteLn(DirInfo.Name);
   FindNext(DirInfo);
  End;
End.

@iluxa1810 13 / 13 / 11 Регистрация: 03.09.2011 Сообщений: 1,026
		1
	Работа с каталогом 13.11.2013, 16:37. Показов 1658. Ответов 1 Метки нет (Все метки) В каталоге, где находится .EXE файл программы находится некоторое кол-во .TXT файлов. Задача такова, надо просканировать директорию и записать все эти пути/имена в какой-нибудь массив. Как это реализовывается? 0

	13.11.2013, 17:06

Работа с каталогом

Решение