'Сделать файл Read-Only
SetAttr "c:\temp\Sample.txt", vbReadOnly
' Сделать файл Hidden
SetAttr "c:\temp\Sample.txt", vbHidden
'Обратите внимание, что если вы меняете один атрибут, существующий атрибут перезаписывается , Для создания файла как для чтения, так и для скрытых используйте оба атрибута в функции
SetAttr "c:\temp\Sample.txt", vbHidden + vbReadOnly
'Удалить все атрибуты - конвертировать файл только для чтения в файл чтения-записи, отобразить файл и т. Д.
SetAttr "c:\temp\Sample.txt", vbNormal