| [ < ] | [ > ] | [ << ] | [ Up ] | [ >> ] | [Top] | [Contents] | [Index] | [ ? ] |
procedure RmDir (Directory: String); |
`RmDir' removes the given Directory if its argument is a valid parameter to the related operating system's function. Otherwise a runtime error is caused.
`RmDir' is a Borland Pascal extension.
program RmDirDemo;
var
Foo: String (127);
begin
WriteLn ('Enter directory name to remove: ');
ReadLn (Foo);
{$i-} { Suppress exit on error }
RmDir (Foo);
if IOResult <> 0 then
WriteLn ('Directory ', foo, ' could not be removed.')
else
WriteLn ('Okay.')
end.
|
section 9.40 ChDir, section 9.161 MkDir