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.