為什么我嘗試使用 open 寫入文件失敗？

Question

當我嘗試打開要寫入的文件時，出現錯誤： Ada.IO_Exceptions.Name_Error 。 過程調用是Ada.Text_IO.Open ； 文件名為C:\\CC_TEST_LOG.TXT 。 該文件不存在。

這是在 NTFS 分區上的 Windows XP 上。 用戶具有創建和寫入目錄的權限。 文件名遠低於 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

如果“文件不存在”，您應該先Create它， 例如. 請注意“對於文本輸入-輸出，過程Create 、 Open和Reset具有子條款A.10.2 中描述的附加效果。”

如果這與您之前的問題有關，提供更多詳細信息可能會有所幫助。