[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] | Reference for unit 'System' (#rtl)

# GetDir

Return the current directory

## Declaration

Source position: systemh.inc line 1363

`procedure GetDir(`
`drivenr: Byte;`
`var dir: shortstring`
`); overload; procedure GetDir(`
`drivenr: Byte;`
`var dir: RawByteString`
`); overload; procedure GetDir(`
`drivenr: Byte;`
`var dir: unicodestring`
`); overload;`

## 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 |  | Change current working directory.

## Example

    Program Example29;

    { Program to demonstrate the GetDir function. }

    Var S : String;

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