13.3.0 Getdir

Declaration:: Procedure Getdir (drivenr : byte;var dir : string);
Description:: Getdir returns in dir the current directory on the drive drivenr, where drivenr is 1 for the first floppy drive, 3 for the first hard disk etc. A value of 0 returns the directory on the current disk. On LINUX and UNIX systems, drivenr is ignored, as there is only one directory tree.
Errors:: An error is returned under DOS, if the drive requested isn’t ready.
See also:: Chdir (463)

Listing: refex/ex29.pp

Program Example29;

{ Program to demonstrate the GetDir function. }

Var S : String;

begin
GetDir (0,S);
Writeln ('Current directory is : ',S);
end.