' ----------------------------------------------------------------------------
' FUNCTION  ChangeFileAttributes  As Integer  DECEMBER 2001      by J.Philippe
'
'                  CHANGE  the  Attributes  of  a  FILE
'
' DOCUMENTATION TEXT FILE
' ----------------------------------------------------------------------------
'  
'    $Includes "Functions\ChangeFileAttributes.Inc"
'
'    - ChangeFileAttributes (pathFilename$ As String, Attributes As String) As Integer
'
'       - attributes are passed as a String
'           "A" for Archive
'           "D" for Directory
'           "H" for Hidden
'           "N" for Normal
'           "R" for Read Only
'           "S" for System
'           "T" for Temporary
'           "C" for Compressed
'           "0" for No Attribute Set (?=N?)
'
'      EXAMPLE :
'      -------
'        ChangeFileAttributes ("c:\myDir\myFile","AR")
'           the attributes of myFile are set to Archive and ReadOnly
'
'       The function returns  1 (True)  if attributes have been changed and 0 if
'       an error has occured.
'
' ----------------------------------------------------------------------------