CHDIR

可搬用関数:基本ディレクトリを変更します。

モジュールUSE DFPORT

形式

result = CHDIR(dir_name)

dir_name
(入力) CHARACTER*(*)。基本ディレクトリにするディレクトリの名前。

結果

結果の型は INTEGER(4) です。成功裏にディレクトリが変更されるとゼロが返されます,そうでなければエラー・コードが返されます。可能性のあるエラー・コードは以下のとおりです。

互換性

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

関連情報

CHANGEDIRQQ

		integer(4) istatus, enoent, enotdir
		character*(*) newdir, prompt, errmsg
		prompt = 'Please enter directory name: '
	10	write *, prompt
		read *, newdir
		ISTATUS = CHDIR(newdir)
		select case (istatus)
		  case (enoent)
		    errmsg = 'The directory'//newdir//' does not exist'
		  case (enotdir)
		    errmsg = newdir//' is not a directory'
		  case else
		    goto 40
		end select
		write *, errmsg
		goto 10
	40	write *, 'Default directory successfully changed.'
		end