46 Процедуры для работы с каталогами

Процедура ChDir( Path: string );

ОписаниеПроцедура устанавливает текущий каталог. Путь к каталогу указывается в переменной Path. Если путь содержит имя диска, то функция также устанавливает указанный диск текущим.

Процедура MkDir( Path: string );

Описание Процедура создает подкаталог по заданному пути Path. Путь не должен содержать имя файла.

Пример Приведенный пример проверяет, существует ли в каталоге 'C:\DRV\DOS\' подкаталог 'CDROM'. Если нет, то указанный каталог создается. Каталог 'C:\DRV\DOS\' уже должен существовать на диске, иначе возникнет ошибка ввода/вывода.

Процедура RmDir( Path: string );

Описание Процедура удаляет пустой каталог. Path - путь к удаляемому каталогу. Если заданный каталог не существует, содержит файлы или вложенные каталоги, или является текущим рабочим каталогом, то возникает ошибка ввода/вывода. Данная процедура аналогична функции RemoveDir за исключением того, что c помощью процедуры RmDir нельзя удалить текущий каталог.

Процедура GetDir( Drive: Byte; var S: string );

Описание Процедура возвращает имя текущего каталога на диске, указанном в параметре Drive. Переменная Drive может иметь следующие значения: текущий диск - 0, 'А' - 1, 'В' - 2, 'C' - 3 и т.д. Если задан не существующий или недоступный в данный момент диск (например, отсутствует дискета в дисководе), то функция возвращает текущий каталог на текущем диске.

Пример var    S: string; begin    GetDir( 0, S);    MessageDlg( 'Текущий каталог: '+ S, mtInformation, [mbOk], 0); end;