
Captulo 32 - manipulao de diretrios

MKDIR - este procedimento cria um subdiretrio de acordo com o contedo 
passado como parmetro. Este parmetro deve ser compatvel com o DOS e no po-
demos criar um subdiretrio j existente. Sua sintaxe:
MKDIR (<S> : STRING);

GETDIR - este procedimento retorna o diretrio corrente da unidade passada
como parmetro. Caso a unidade seja igual 0, ser exibido o diretrio da 
unidade corrente, um para unidade A:, 2 para B: e assim sucessivamente. 
Sua sintaxe:
GETDIR (<drive> : BYTE; VAR <s> ; STRING);

CHDIR - este procedimento muda o subdiretrio corrente para o especificado
no parmetro. Sua sintaxe:
CHDIR (<s> : STRING);

RMDIR - este procedimento permite remover um subdiretrio passado como pa-
rmetro. Para tanto o subdiretrio deve estar vazio, e no pode ser o dire-
trio corrente. Sua sintaxe:
RMDIR (<s> : STRING);
Vejamos um exemplo que englobe os procedimentos com subdiretrios:
PROGRAM teste_diretrios;
USES CRT;
VAR
  diretrio,atual : STRING[67];
BEGIN  
  CLRSCR;
  GOTOXY (15,1);
  WRITE (manuteno de diretrios);
  GOTOXY (10,10);
  WRITE (entre com o nome do diretrio a ser , criad);
  READLN (diretrio);
  [$I-}
  MKDIR (diretrio);
  {$I+}
  IF IORESULT <> 0
    THEN
      BEGIN
        GOTOXY (15,15);
        WRITE (diretrio no criad);
      END
  ELSE
    BEGIN
      GOTOXY (10,12);
      GETDIR (0,atual);
      WRITE (o diretprio atual  , atual);
      GOTOXY (10,14);
      CHDIR (diretrio);
      GETDIR (0 diretrio);
      WRITE (diretrio trocado par,diretrio);
      CHDIR (atual);
      GETDIR (0,atual);
      RMDIR (diretrio);
      GOTOXY (10,16);
      WRITE (o diretri,diretrio,foi removid);
    END;
  REPEAT
  UNTIL READKEY <> #0;
END.
