{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}


Program ex16;

Uses dos;

Var s,r,t:String;
    i:integer;

BEGIN
GetDir(0,s);
Writeln('Lecteur et r‚pertoire courant: ',s);
{$I-}
Write('Aller dans quel r‚pertoire ?  -> ');
ReadLn(r);
For i := 1 To Length(r) Do r[i] := UpCase(r[i]);
ChDir(r);
If IOResult <> 0 Then
   Begin
        Write(r,' n''existe pas, voulez-vous le cr‚er [o/n] ? -> ');
        Readln(s);
        If (s='o') Or (s='O') Then
           Begin
                MkDir(r);
                WriteLn('Cr‚ation de ',r);
           End;
   End
   Else  Writeln('Ok : ',r,' existe !');
ReadLn;
ChDir(s);
END.