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.