Почему мои попытки открыть файл, используя открытый для написания неудачи? ADA 95
Вопрос
Когда я пытаюсь открыть файл, чтобы написать, я получу ada.io_exceptions.name_error.
Процедурный вызов Ada.text_io.open
Имя файла «C: cc_test_log.txt». Этот файл не существует.
Это на Windows XP в разделе NTFS. У пользователя есть разрешения на создание и записи в каталог. Имя файла вполне находится под длиной максимального пути Win32.
name_2 : String := "C:\CC_TEST_LOG.TXT"
if name_2'last > name_2'first then
begin
Ada.Text_IO.Open(file, Ada.Text_IO.Out_File, name_2);
Ada.Text_IO.Put_Line(
"CC_Test_Utils: LogFile: ERROR: Open, File "
& name_2);
return;
exception
when The_Error : others =>
Ada.Text_IO.Put_Line(
"CC_Test_Utils: LogFile: ERROR: Open Failed; "
& Ada.Exceptions.Exception_Name(The_Error)
& ", File " & name_2);
end;
end if;
Решение
Если «файла не существует», вы должны Create
это первое.
Если это связано с вашим Предыдущий вопрос, это может помочь предоставить более подробную информацию.
Не связан с StackOverflow