Win32 filetype problem

["Martin Dowie" <martin.dowie@nospam.baesystems.com>]

System: WIntel NT, GNAT 3.13p

I don't seem to be able to determine if a filename (specified in
an Ada string) is a directory or not using the Win32 bindings in
GNAT.

I've been through the help file but there is nothing that answer
what is happening.

Here's a code snip of what I have:

declare
   function To_LPCSTR is
      new Ada.Unchecked_Conversion (Source => System.Address,
                                    Target => Win32.LPCSTR);
   C_Filename : Chars_Ptr := New_String (Trimmed_Filename);
   Result : Win32.DWORD;
begin
   Result := Win32.Winbase.GetFileAttributesA (lpFileName => To_LPCSTR (S =>
C_Filename'Address));
   Ada.Text_IO.Put_Line ("oops? " & Boolean'Image (Result =
6#FFFF_FFFF#));  -- always displays "oops? TRUE"
   return Result /= 16#FFFF_FFFF# and then
          (Result and Win32.WinNT.FILE_ATTRIBUTE_DIRECTORY) =
Win32.WinNT.FILE_ATTRIBUTE_DIRECTORY;
end;

--
Kernighan and Ritchie : "C was designed on the assumption
                         that the programmer is someone
                         sensible who knows what he's
                         doing"
Ada Reference Manual : "Ada was designed with the
                        concern of programming as a
                        human activity"