Pourquoi mes tentatives d'ouvrir un fichier en utilisant ouvert pour écrire à défaut? Ada 95

Question

Quand je tente d'ouvrir un fichier à écrire, je reçois un Ada.IO_Exceptions.Name_Error.

L'appel de procédure est Ada.Text_IO.Open

Le nom du fichier est "C: \ CC_TEST_LOG.TXT". Ce fichier n'existe pas.

Ceci est sous Windows XP sur une partition NTFS. L'utilisateur dispose des autorisations pour créer et écrire dans le répertoire. Le nom de fichier est déjà bien la longueur du trajet 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 le fichier "n'existe pas," vous devriez question précédente, il peut aider à fournir plus de détails.