Visual Basic FAQ

Как изменить атрибуты файла?

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

Запись опубликована on 17.02.2009 at 9:00 и размещена в рубрике: Файл. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.