Re: How to rename a file?

["DuckE" <nospam_steved94@home.com>]

Here's how I make the OS call on WindowsNT/W2K using ObjectAda or GNAT:

WITH Win32;
WITH Win32.WinBase;
WITH Interfaces.C;
 ...
  PACKAGE WinBase RENAMES Win32.WinBase;
  PACKAGE C RENAMES Interfaces.C;

  USE TYPE Win32.BOOL;
  USE TYPE Win32.DWORD;
...
  PROCEDURE RenameFileDFU( sourceFileNameDFU, destFileNameDFU : STRING;
                           renamedDFU : out BOOLEAN ) IS
    result     : Win32.BOOL;
    sourceName : ALIASED C.Char_Array := C.To_C( sourceFileNameDFU );
    destName   : ALIASED C.Char_Array := C.To_C( destFileNameDFU );
  BEGIN
    result := WinBase.MoveFile( sourceName(0)'UNCHECKED_ACCESS,
                                destName(0)'UNCHECKED_ACCESS );
    renamedDFU := result /= Win32.FALSE;
  END RenameFileDFU;

I hope this helps,
SteveD

"Pi" <pi3_1415926536@yahoo.ca> wrote in message
news:MYKs7.11405$%r.2963162@news20.bellglobal.com...
> It may sound stupid, but I didn't find anything.
>
> Is there a way to rename files in Ada?
>
> Other than :
> create a new file,
> copy every byte into the new one,
> delete the old one.
>
> --
> 3,14159265359
>