как поменять аттрибуты папки,файла

[elsen]

как поменять аттрибуты папки,файла протрамно
в MSDN есть пример но чтото не получается только на форуме смотрел но все не то

[A.A.Z.]

Код: Выделить всё

Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
'Нужные константы добавляешь во второй параметр вышеобъявленной функции, разделяя Or'ом: SetFileAttributes FileName, Parameter1 Or Parameter2 Or ... Or ParameterN
Private Const FILE_ATTRIBUTE_ARCHIVE As Long = &H20               'архивный
Private Const FILE_ATTRIBUTE_COMPRESSED As Long = &H800           'сжатый
Private Const FILE_ATTRIBUTE_DEVICE As Long = &H40                'устройство
Private Const FILE_ATTRIBUTE_DIRECTORY As Long = &H10             'папка
Private Const FILE_ATTRIBUTE_ENCRYPTED As Long = &H4000           'зашифрованный
Private Const FILE_ATTRIBUTE_HIDDEN As Long = &H2                 'скрытый
Private Const FILE_ATTRIBUTE_NORMAL As Long = &H80                'обычный
Private Const FILE_ATTRIBUTE_NOT_CONTENT_INDEXED As Long = &H2000 'не готов для индексирования
Private Const FILE_ATTRIBUTE_OFFLINE As Long = &H1000             'содержимое файла на данный момент недоступно
Private Const FILE_ATTRIBUTE_READONLY As Long = &H1               'только чтение
Private Const FILE_ATTRIBUTE_REPARSE_POINT As Long = &H400
Private Const FILE_ATTRIBUTE_SPARSE_FILE As Long = &H200
Private Const FILE_ATTRIBUTE_SYSTEM As Long = &H4                 'системный
Private Const FILE_ATTRIBUTE_TEMPORARY As Long = &H100            'временный

Private Sub Form_Load()
Open "c:\bla.bla" For Output As #1: Close #1
SetFileAttributes "C:\bla.bla", FILE_ATTRIBUTE_READONLY Or FILE_ATTRIBUTE_HIDDEN 'только что созданному файлу "C:\bla.bla" присваеваем параметры "только чтение" и "скрытый"
End Sub

[elsen]

Vilen Dank
сейчас попробую