' Set a file's attribute

CONST FILE_ATTRIBUTE_ARCHIVE = &H20
CONST FILE_ATTRIBUTE_COMPRESSED = &H800
CONST FILE_ATTRIBUTE_DIRECTORY = &H10
CONST FILE_ATTRIBUTE_HIDDEN = &H2
CONST FILE_ATTRIBUTE_NORMAL = &H80
CONST FILE_ATTRIBUTE_READONLY = &H1
CONST FILE_ATTRIBUTE_SYSTEM = &H4
CONST FILE_ATTRIBUTE_TEMPORARY = &H100

DECLARE FUNCTION Attrib LIB "KERNEL32" ALIAS "SetFileAttributesA" _
        (lpFileName AS STRING, dwFileAttributes AS DWORD) AS LONG


ATTRIB "T.BAS", FILE_ATTRIBUTE_ARCHIVE OR FILE_ATTRIBUTE_NORMAL