17
Февраль
2009
Как изменить атрибуты файла?
Как изменить атрибуты файла?
Option Explicit Private Sub Command1_Click() 'Поставить атрибут "Только чтение" SetAttr App.Path & "\1.doc", vbReadOnly End Sub Private Sub Command4_Click() 'Снять атрибут "Только чтение" SetAttr App.Path & "\1.doc", GetAttr(App.Path & "\1.doc") _ And (Not vbReadOnly) End Sub Private Sub Command2_Click() 'Поставить атрибут "Архивный" SetAttr App.Path & "\1.doc", vbArchive End Sub Private Sub Command5_Click() 'Очистить атрибут "Архивный" SetAttr App.Path & "\1.doc", GetAttr(App.Path & "\1.doc") _ And (Not vbArchive) End Sub Private Sub Command3_Click() 'Поставить атрибут "Скрытый" SetAttr App.Path & "\1.doc", vbHidden End Sub Private Sub Command6_Click() 'Очистить атрибут "Скрытый" SetAttr App.Path & "\1.doc", GetAttr(App.Path & "\1.doc") _ And (Not vbHidden) End Sub