Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.117.81.240] |
|
Сообщ.
#1
,
|
|
|
' убрать атрибут "Только чтение" Call SetAttr(strFileName, GetAttr(strFileName) And (Not vbReadOnly)) ' убрать атрибут "Архивный" Call SetAttr(strFileName, GetAttr(strFileName) And (Not vbArchive)) ' Поставить атрибут "Только чтение" Call SetAttr(strFileName, vbReadOnly) ' Поставить атрибут "Архивный" Call SetAttr(strFileName, vbArchive) |