Процедура GetDir( drive : Byte; VAR S : String ) может определить имя текущего каталога заданного диска. Диск задается его индексом или номером:
0 — текущий диск
1 — диск А:
2 — диск В:
3 — диск С:
и т.д.
Если задать номер диска, отсутствующего в конфигурации ПЭВМ, то возникнет ошибка. После выполнения процедуры переменная S будет содержать полное имя каталога (с указанием буквы диска). Можно использовать GetDir для получения текущей буквы диска:
GetDir( 0, S );
WriteLn( 'Текущий диск-> ', S[1], S[2] );
Возвращаемое в S значение можно потом без изменений использовать в вызовах ChDir и MkDir. Но если надо приписать к нему имя файла, то не забудьте вставить между ними разделитель '\':
GetDir( 1, S );
FullFileName := S + '\' + FileName;
Однако это не лучшее решение задачи, ибо как быть в случае, если
- 261 -
S содержит корневой каталог 'А:\'? Решение может дать процедура FExpand модуля DOS.
Процедура ChDir( S : String ) используется для перехода в какой-либо существующий на диске каталог. Она делает текущим каталог, содержащийся в строке S (точнее, пытается сделать — все зависит от корректности содержимого S). Параметр S может содержать все те же значения, что может принять команда MS-DOS CD (CHDIR). Вот некоторые примеры вызовов:
ChDir('C:\PASCAL\EXE') — задан весь путь;
ChDir('\PASCAL\DOS') — дан путь от корневого каталога;
ChDir('WORK') — переход в подкаталог Work текущего каталога;
ChDir('..') — выход из подкаталога;
ChDir('..\TOOLS') — то же, но с переходом;
ChDir('\') — возврат в корневой каталог;
ChDir('A:') — переход в текущий каталог диска A:
Программа может сама создавать каталоги и подкаталоги, используя процедуру MkDir( S : String ). Параметр S должен содержать корректное имя нового подкаталога и при необходимости путь к нему (маршрут). Если возможно по правилам MS-DOS создать такой каталог, то он будет создан. Перехода в новый каталог при этом не происходит. Примеры обращений к процедуре:
MkDir( 'C:\PASCAL\NEW');
MkDir( 'HOBBY');
MkDir( '..\NEWDIR');
Каталоги можно удалять. Удалить можно любой каталог, если:
1) он совершенно пуст;
2) он не является текущим.
Удаление производится процедурой RmDir( S : String ), где S содержит имя удаляемого каталога. Удаление — процедура, симметричная созданию каталога. Примеры будут аналогичны примерам для процедуры MkDir.
Описанными выше процедурами вовсе не исчерпывается набор средств для работы со структурой дисков. Большое число специальных функций реализовано в модуле DOS и рассматривается в гл. 16.