¿Por qué mis intentos de abrir un archivo mediante abierto para escritura no? Ada 95

Question

Cuando intento abrir un archivo para escribir en recibo un Ada.IO_Exceptions.Name_Error.

la llamada a procedimiento es Ada.Text_IO.Open

El nombre del archivo es "C: \ CC_TEST_LOG.TXT". no existe este archivo.

Este es el Windows XP en una partición NTFS. El usuario tiene permisos para crear y escribir en el directorio. El nombre de archivo es bien bajo la longitud del camino WIN32 max.

 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

Si "el archivo no existe", el que debiera Create primero.

Si esto está relacionado con su pregunta anterior , puede ayudar a proporcionar más detalles.