为什么我尝试使用open打开文件失败？ Ada 95

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。

如果这与您的previous question有关，可能有助于提供更多详细信息。