该函数的调用方式如下所示:
INTEGER*4 access status = access ( name, mode ) |
|||
name |
字符 |
输入 |
文件名 |
mode |
字符 |
输入 |
权限 |
返回值 |
INTEGER*4 |
输出 |
status=0:OK;status>0:错误代码 |
access 确定是否可以使用 mode 指定的权限访问文件 name。如果可以使用 mode 指定的权限成功访问文件,access 将返回零。另请参见 gerror(3F),了解有关错误代码的信息。
可以将 mode 设置为 r、w 和 x 中的一个或多个(以任何顺序或任意组合),也可以为空白,其中 r、w 和 x 的含义如下:
’r’ |
测试是否有读取权限 |
’w’ |
测试是否有写入权限 |
’x’ |
测试是否有执行权限 |
’ ’ |
测试文件是否存在 |
示例 1:测试是否有读/写权限:
INTEGER*4 access, status status = access ( ’taccess.data’, ’rw’ ) if ( status .eq. 0 ) write(*,*) "ok" if ( status .ne. 0 ) write(*,*) ’cannot read/write’, status |
示例 2:测试文件是否存在:
INTEGER*4 access, status status = access ( ’taccess.data’, ’ ’ ) ! blank mode if ( status .eq. 0 ) write(*,*) "file exists" if ( status .ne. 0 ) write(*,*) ’no such file’, status |