2002-07-13 08:05

' 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

2002-07-13 08:05