GETCWD

可搬用関数：現在の作業ディレクトリのパスを取り出します。

モジュール：USE DFPORT

形式

result = GETCWD (dirname)

dirname
(出力) CHARACTER*(*)。ドライブ文字を含む現在の作業ディレクトリのパス名。

結果

結果の型は INTEGER(4) です。成功すれば，結果はゼロで，そうでなければエラー・コードです。

互換性

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

関連情報

GETDRIVEDIRQQ

例

	character*30 dirname
	! 変数 dirname は文字列全体を保持できるだけの十分な長さが必要です。
	integer(4) istat
	ISTAT = GETCWD (dirname)
	IF (ISTAT == 0) write *, 'Current directory is ',dirname