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, 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

Example

Program Example29;

{ Program to demonstrate the GetDir function. }

Var S : String;

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