Конференция VBStreets

**Maks the best** » 26.03.2009 (Чт) 13:41

Добрый день!

Подскажите пожалуйста, есть ли метод из VBA изменить атрибуты файла, скажем C:\1.xls с архивного на неархивный и наоборот?

**alibek** » 26.03.2009 (Чт) 13:49

SetAttr

**Maks the best** » 26.03.2009 (Чт) 13:53

спасибо огромное

**plik** » 02.07.2009 (Чт) 15:12

Классика!

Код: Выделить всё: ' ... Dim FSO As Object ' Объект файловой системы Dim File As Object ' Объект файла отчета ' ... Set FSO = CreateObject("Scripting.FileSystemObject") Set File = FSO.GetFile(FullName) File.Attributes = 1 ' ... ' 0 - Normal. Обычный файл (нет атрибутов). ' 1 - ReadOnly. Файл только для чтения. Чтение и запись. ' 2 - Hidden. Скрытый. Чтение и запись. ' 4 - System. Системный. Чтение и запись. ' 8 - Volume. Диск. Только чтение. ' 16 - Directory. Папка или файл. Только чтение. ' 32 - Archive. Архивный. Чтение и запись. ' 1024 - Alias. Ссылка или ярлык. Только чтение. ' 2048 - Compressed. Сжатый. Только чтение.

атрибуты файла