set fs=createobject("scripting.filesystemobject").GetFolder("\\?\C:\test\aaa..\") fs.attributes=fs.attributes+2