CHDIR

 

Portability Function: Changes the default directory.

Module

USE IFPORT

Syntax

result = CHDIR(dir_name)

dir_name

(Input) Character*(*). Name of a directory to become the default directory.

Results

The result type is INTEGER(4). It returns zero if the directory was changed successfully; otherwise, an error code. Possible error codes are:


Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

Example

use ifport

integer(4) istatus, enoent, enotdir

character(255) newdir

character(300) prompt, errmsg

 

prompt = 'Please enter directory name: '

10 write(*,*) TRIM(prompt)

read *, newdir

ISTATUS = CHDIR(newdir)

select case (istatus)

case (2) ! ENOENT

errmsg = 'The directory '//TRIM(newdir)//' does not exist'

case (20) ! ENOTDIR

errmsg = TRIM(newdir)//' is not a directory'

case (0) ! NO error

goto 40

case default

write (errmsg,*) 'Error with code ', istatus

end select

 

write(*,*) TRIM(errmsg)

goto 10

 

40 write(*,*) 'Default directory successfully changed.'

end

See Also