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


Оставить комментарий

Я не робот.