BCX Console Demonstration Program s65.bas

DIM InFile$
'---------------------------------------------------------------------------- 
' 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 
'---------------------------------------------------------------------------- 
InFile$ = COMMAND$(1)

SetFileAttr(InFile$, FILE_ATTRIBUTE_HIDDEN )

SUB SetFileAttr (Filename$, FileAttribute%)
  SetFileAttributes(Filename$, FileAttribute%)
END SUB

Result:

Result not displayed for this example.