[ < ] | [ > ] | [ << ] | [ 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