m.loFSO = CREATEOBJECT('Scripting.FileSystemObject')
sDIR = "C:\MyFolder\"
sReadOnly =  0 
sHidden =  0 
sSystem =  0 
sArchive =  0 
m.loDIR = m.loFSO.GetFolder(sDIR)
m.loDIR.Attributes =  0 
Attribs =  0 
If sReadOnly =  1  Then 
	Attribs = Attribs +  1  
Endif
If sHidden =  1  Then 
	Attribs = Attribs +  2 
Endif
If sSystem =  1  Then 
	Attribs = Attribs +  4 
Endif	
If sArchive =  1  Then 
	Attribs = Attribs +  32 
Endif	
m.loDIR.Attributes = Attribs