Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Атрибут папки,распространяющийся в глубь / 8 сообщений из 8, страница 1 из 1
26.06.2008, 14:49
    #35396663
Mbus
Mbus
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Атрибут папки,распространяющийся в глубь
Как навесить на папку атрибут только чтение, чтобы он распространился на все файлы и подпапки?

я имею в виду присвоением атрибута папке, а не перебором всего содержимого папки и установки у каждого этого содержимого соответствующего атрибута
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2008, 15:23
    #35396818
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Атрибут папки,распространяющийся в глубь
Как то так, наверно, если вглубь (но не в глубь, еще бы в прорубь написали):

ATTRIB +R [[path] file_name] [/S]

Справка:

http://msdn.microsoft.com/en-us/library/aa925947.aspx
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2008, 15:49
    #35396937
Mbus
Mbus
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Атрибут папки,распространяющийся в глубь
Извините за малохраммность )))
не совсем понятна ваша строка?
каким образом это писать в VBA
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2008, 15:54
    #35396959
Mbus
Mbus
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Атрибут папки,распространяющийся в глубь
Я знаю как у файлов и папок менять атрибуты

Делаю это так, например
Код: plaintext
1.
2.
3.
 Set fs = CreateObject("Scripting.FileSystemObject")
 Set f = fs.GetFolder("путь к папке")
 f.Attributes =  18  'скрытая папка

просто не пойму какое сочетание применить (17 не проходит), чтобы получилось не просто только чтение на папку, но и на ее содержимое

0 Normal file. No attributes are set.
1 Read-only file. Attribute is read/write.
2 Hidden file. Attribute is read/write.
4 System file. Attribute is read/write.
8 Disk drive volume label. Attribute is read-only.
16 Folder or directory. Attribute is read-only.
32 File has changed since last backup. Attribute is read/write.
64 Link or shortcut. Attribute is read-only.
128 Compressed file. Attribute is read-only.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2008, 15:57
    #35396973
%?*?%
%?*?%
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Атрибут папки,распространяющийся в глубь
Код: plaintext
Shell "cmd /c attrib +R C:\MyFolder\*.* /S /D"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2008, 15:58
    #35396975
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Атрибут папки,распространяющийся в глубь
Mbus, в таком случае следует признать, что вы все таки не знаете, как ответить на свой вопрос. А мой пример (кстати, не факт, что он будет работать, я не проверял) можно засунуть в BAT файл и запустить его из VBA командой Shell, например.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.06.2008, 10:31
    #35398094
AndreyArtemev
AndreyArtemev
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Атрибут папки,распространяющийся в глубь
Такого не бывает - файловые атрибуты не наследуются.
Так что остается перебирать файлы.

А может посмотреть в сторону прав (например: права только чтение), они наследуются?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.06.2008, 15:12
    #35399035
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Атрибут папки,распространяющийся в глубь
AndreyArtemevТакого не бывает - файловые атрибуты не наследуются.
Так что остается перебирать файлы.

А может посмотреть в сторону прав (например: права только чтение), они наследуются?

Идея касательно прав - хороша. Но вопрос был о том, как одним махом семерых побивахом, не трогая прав. По-моему, судя по документации, для этого существует команда ATTRIB.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Атрибут папки,распространяющийся в глубь / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 287ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2162135]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 40ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 189ms
total:  287ms
x
x
Закрыть


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