mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 02:51:37 +01:00
21 lines
392 B
ObjectPascal
21 lines
392 B
ObjectPascal
Program Example53;
|
|
|
|
{ Program to demonstrate the MkDir and RmDir functions. }
|
|
|
|
Const D : String[8] = 'TEST.DIR';
|
|
|
|
Var S : String;
|
|
|
|
begin
|
|
Writeln ('Making directory ',D);
|
|
Mkdir (D);
|
|
Writeln ('Changing directory to ',D);
|
|
ChDir (D);
|
|
GetDir (0,S);
|
|
Writeln ('Current Directory is : ',S);
|
|
WRiteln ('Going back');
|
|
ChDir ('..');
|
|
Writeln ('Removing directory ',D);
|
|
RmDir (D);
|
|
end.
|