可搬用関数:基本ディレクトリを変更します。
モジュール:USE DFPORT
形式
result = CHDIR(dir_name)
dir_name
(入力) CHARACTER*(*)。基本ディレクトリにするディレクトリの名前。
結果
結果の型は INTEGER(4) です。成功裏にディレクトリが変更されるとゼロが返されます,そうでなければエラー・コードが返されます。可能性のあるエラー・コードは以下のとおりです。
ENOENT - 指定したディレクトリ名がありません。
ENOTDIR - dir_name パラメタがディレクトリではありません。
互換性
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB
関連情報
例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