Node:ChDir, Next:Chr, Previous:Char, Up:Reference
procedure ChDir (Directory: String);
ChDir changes the current directory to Directory, if its
argument is a valid parameter to the related operating system's function.
Otherwise, a runtime error is caused.
ChDir is a Borland Pascal extension.
program ChDirDemo;
var
Foo: String (127);
begin
WriteLn ('Enter directory name to change to:');
ReadLn (Foo);
{$I-} { Don't abort the program on error }
ChDir (Foo);
if IOResult <> 0 then
WriteLn ('Cannot change to directory `', Foo, '''.')
else
WriteLn ('Okay.')
end.