Por que minhas tentativas de abrir um arquivo usando o aberto para escrever falhas? Ada 95

Question

Quando tento abrir um arquivo para gravar para obter um ADA.io_exceptions.name_error.

A chamada do procedimento é Ada.text_io.open

O nome do arquivo é "C: cc_test_log.txt". Este arquivo não existe.

Isso está no Windows XP em uma partição NTFS. O usuário tem permissões para criar e gravar no diretório. O nome do arquivo está bem sob o comprimento do caminho máximo do 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;

Answer 1

Se o "arquivo não existir", você deveria Create primeiro.

Se isso estiver relacionado ao seu pergunta anterior, pode ajudar a fornecer mais detalhes.