Проверка существования файла

@vbdos · Регистрация: 27.01.2016

Author24 — интернет-сервис помощи студентам

Здравствуйте, можно ли организовать проверку файла?

echs · 02.02.2016, 10:58

Никогда не интересовался этим. Но предлагаемый
вам код определяет, есть ли нужный вам файл или нет.
PS.
Возможно существуют и иные методы...

QBasic/QuickBASIC

CLS
ON ERROR GOTO 100
OPEN "1.txt" FOR INPUT AS #1
PRINT "YES"
GOTO 200
 
100 PRINT "NO"
 
200
END

@Pro_grammer · 02.02.2016, 12:46

Сообщение от geh

код определяет, есть ли нужный вам файл или нет.

Точнее он определяет, открыли мы файл для чтения или нет.
Более точно надо идентифицировать код ошибки ERR = 53 - файл не найден
К примеру если файл уже открыт( но есть на диске!), то код ошибки 55 - файл уже открыт
А ещё могут быть другие ошибки:
70 Доступ запрещен
71 Диск не готов
72 Ошибка носителя
75 Ошибка доступа
Хотя по факту файл вроде есть.

@Quiet Snow · 02.02.2016, 14:49

Pro_grammer сделал важное уточнение по поводу ERR.

Тем не менее в большинстве случаев можно это опустить, если программа
не может открыть файл требуемый для своей работы, то нет большой разницы,
по какой причине она не может это сделать, с точки зрения программы он просто
недоступен, разве что выдать пользователю сообщение.

Программу можно оформить функцией, эвенты выставляем за END-ом(это чуть ли не
единственное зачем нужен данный оператор, но geh-у хоть об стенку горох).

QBasic/QuickBASIC

DECLARE FUNCTION FileExist% (FileName$)
DIM SHARED FExist AS INTEGER
 
CLS
SHELL "DIR /W"
PRINT : INPUT "Input your filename: ", MyFName$
IF FileExist(MyFName$) THEN PRINT "File exist" ELSE PRINT "No file..."
 
 
END
 
FCheck: FExist = 0
RESUME NEXT
 
FUNCTION FileExist% (FileName$)
DIM FrF AS INTEGER
  FExist = -1
  FrF = FREEFILE
  ON ERROR GOTO FCheck
  OPEN "I", FrF, FileName$
    IF FExist THEN CLOSE FrF
  ON ERROR GOTO 0
  FileExist = FExist
END FUNCTION

@vbdos 0 / 0 / 0 Регистрация: 27.01.2016 Сообщений: 7
		1
	Проверка существования файла 01.02.2016, 19:25. Показов 1074. Ответов 3 Метки нет (Все метки) Здравствуйте, можно ли организовать проверку файла? 0

@Pro_grammer 6804 / 2831 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	02.02.2016, 12:46	3
	Сообщение от geh код определяет, есть ли нужный вам файл или нет. Точнее он определяет, открыли мы файл для чтения или нет. Более точно надо идентифицировать код ошибки ERR = 53 - файл не найден К примеру если файл уже открыт( но есть на диске!), то код ошибки 55 - файл уже открыт А ещё могут быть другие ошибки: 70 Доступ запрещен 71 Диск не готов 72 Ошибка носителя 75 Ошибка доступа Хотя по факту файл вроде есть. 4

	02.02.2016, 14:49