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

A FSO и есть API. API, завернутые для вас в фантик удобного класса.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.02.2008, 18:11
    #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, 23:48
    #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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Атрибуты / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 331ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2162653]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 50ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 212ms
total:  331ms
x
x
Закрыть


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