SetAttr "C:\dir", vbHidden 'Поставить атрибут "Скрытый"SetAttr "C:\dir", GetAttr("x:\any_notHidden_file") And (Not vbHidden) 'Очистить атрибут "Скрытый"