BCXLogo   BCX Console Demonstration Program S65.bas

 SetFileAttr (COMMAND$, FILE_ATTRIBUTE_HIDDEN )
 
 SUB SetFileAttr(t$,a)
   '----------------------------------------------------------------------------
   ' CONSTANT                    MEANING
   '----------------------------------------------------------------------------
   'FILE_ATTRIBUTE_ARCHIVE   -- The file is an archive file
   'FILE_ATTRIBUTE_HIDDEN    -- The file is hidden
   'FILE_ATTRIBUTE_NORMAL    -- The file has no other attributes set
   'FILE_ATTRIBUTE_OFFLINE   -- The data of the file is not immediately available
   'FILE_ATTRIBUTE_READONLY  -- The file is read-only
   'FILE_ATTRIBUTE_SYSTEM    -- The file is part of the operating system
   'FILE_ATTRIBUTE_TEMPORARY -- The file is being used for temporary storage
   '----------------------------------------------------------------------------
   SetFileAttributes(t$,a)
   '----------------------------------------------------------------------------
 END SUB