ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Атрибуты
6 сообщений из 6, страница 1 из 1
Атрибуты
    #35148746
lambdaX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lambdaX
Гость
Подскажите люди как сделать такие операции с атрибутами:
Сначало снять атрибут -Толко для чтения
А потом поставить обратно?
...
Рейтинг: 0 / 0
21.02.2008, 18:39
| Ответить | Цитировать | Написать  
Атрибуты
    #35149041
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
FSO
File.Attributes.
...
Рейтинг: 0 / 0
21.02.2008, 20:50
| Ответить | Цитировать | Написать  
Атрибуты
    #35150881
lambdaX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lambdaX
Гость
С одной стороны можно и так но желательно нужно cherez WinAPI
...
Рейтинг: 0 / 0
22.02.2008, 16:12
| Ответить | Цитировать | Написать  
Атрибуты
    #35150891
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
lambdaXС одной стороны можно и так но желательно нужно cherez WinAPI

A FSO и есть API. API, завернутые для вас в фантик удобного класса.
...
Рейтинг: 0 / 0
22.02.2008, 16:15
| Ответить | Цитировать | Написать  
Атрибуты
    #35151853
lambdaX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lambdaX
Гость
Через Кернель апи сделать еще проще!
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long


Private Const ATRIBUTE_X =  32   ' Атрибуты которые мы хотим задать

Private Sub Form_Load()

SetFileAttributes "C:\halyava.txt", ATRIBUTE_X


End Sub
Всё хорошо работает, а атрибут можно посмотреть функцией GetFileAttributes! ;)
...
Рейтинг: 0 / 0
23.02.2008, 18:11
| Ответить | Цитировать | Написать  
Атрибуты
    #35152085
Фотография PA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PA
Участник
Штатный способ для VB (без WinAPI и FSO):
Код: plaintext
1.
2.
3.
4.
5.
6.
    Dim currentAttr As Integer
    
    currentAttr = GetAttr("D:\test.txt")
    
    SetAttr "D:\test.txt", currentAttr Or vbReadOnly 'устанавливаем атрибут "только чтение"
    SetAttr "D:\test.txt", currentAttr And Not vbReadOnly 'снимаем атрибут "только чтение"
...
Рейтинг: 0 / 0
23.02.2008, 23:48
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Атрибуты
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35148746&tid=2162653]:
 0ms
get settings:
 11ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 82ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 239ms
total:  416ms
созд. / загр.: 416ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]