with Ada.Text_IO;
with Ada.Directories;
procedure aDir is
package IO renames Ada.Text_IO;
package D renames Ada.Directories;
begin
IO.Put ("Starting default directory: ");
IO.Put_Line (Item => D.Current_Directory);
if D.Exists (Name => "some_file") then
IO.Put_Line (Item => "some_file exists");
end if;
D.Delete_File (Name => "some_file");
if not D.Exists (Name => "some_file") then
IO.Put_Line (Item => "some_file does NOT exist");
end if;
end aDir;
with Ada.Text_IO;
with Ada.Directories;
procedure aDir is
package IO renames Ada.Text_IO;
package D renames Ada.Directories;
begin
IO.Put ("Starting default directory: ");
IO.Put_Line (Item => D.Current_Directory);
if D.Exists (Name => "some_file") then
IO.Put_Line (Item => "some_file exists");
end if;
declare
begin
D.Delete_File (Name => "some_file");
exception
when D.Use_Error =>
IO.Put_Line (Item => "Cannot delete some_file");
end;
declare
begin
D.Delete_File (Name => "some_wrong_filename");
exception
when D.Name_Error =>
IO.Put_Line (Item => "File does not exist");
end;
if D.Exists (Name => "some_file") then
IO.Put_Line (Item => "some_file still exists");
end if;
end aDir;
Go back