8.4 ACCESS — Проверка режимов доступа к файлам

Описание:

ACCESS(NAME, MODE) проверяет, существует ли файл NAME, является ли он доступным для чтения, записи или выполнения. За исключением проверки на выполнение, ACCESS можно заменить на INQUIRE Fortran 95.

Стандарт:

Расширение GNU

Класс:

Функция запроса

Синтаксис:

RESULT = ACCESS(NAME, MODE)

Аргументы:

NAME	Скаляр CHARACTER стандартного вида с именем файла. Конечные пробелы игнорируются, если символ achar(0) присутствует, тогда все символы до и не включая achar(0) используются в качестве имени файла.
MODE	Скаляр CHARACTER стандартного вида с режимом доступа к файлу, может быть любой комбинацией "r" (чтение), "w" (запись) и "x" (выполнение), или " " для проверки существования.

Значение возврата:

Возвращает скаляр INTEGER, который равен 0, если файл доступен в заданном режиме; в противном случае, или если для MODE был передан недопустимый аргумент, возвращается значение 1.

Пример:

program access_test
  implicit none
  character(len=*), parameter :: file  = 'test.dat'
  character(len=*), parameter :: file2 = 'test.dat  '//achar(0)
  if(access(file,' ') == 0) print *, trim(file),' is exists'
  if(access(file,'r') == 0) print *, trim(file),' is readable'
  if(access(file,'w') == 0) print *, trim(file),' is writable'
  if(access(file,'x') == 0) print *, trim(file),' is executable'
  if(access(file2,'rwx') == 0) &
    print *, trim(file2),' is readable, writable and executable'
end program access_test

Уникальные имена:

См. также: