powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Атрибут папки,распространяющийся в глубь
8 сообщений из 8, страница 1 из 1
Атрибут папки,распространяющийся в глубь
    #35396663
Mbus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как навесить на папку атрибут только чтение, чтобы он распространился на все файлы и подпапки?

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

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

Справка:

http://msdn.microsoft.com/en-us/library/aa925947.aspx
...
Рейтинг: 0 / 0
Атрибут папки,распространяющийся в глубь
    #35396937
Mbus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Извините за малохраммность )))
не совсем понятна ваша строка?
каким образом это писать в VBA
...
Рейтинг: 0 / 0
Атрибут папки,распространяющийся в глубь
    #35396959
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
Атрибут папки,распространяющийся в глубь
    #35396973
Фотография %?*?%
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
Shell "cmd /c attrib +R C:\MyFolder\*.* /S /D"
...
Рейтинг: 0 / 0
Атрибут папки,распространяющийся в глубь
    #35396975
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Mbus, в таком случае следует признать, что вы все таки не знаете, как ответить на свой вопрос. А мой пример (кстати, не факт, что он будет работать, я не проверял) можно засунуть в BAT файл и запустить его из VBA командой Shell, например.
...
Рейтинг: 0 / 0
Атрибут папки,распространяющийся в глубь
    #35398094
AndreyArtemev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Такого не бывает - файловые атрибуты не наследуются.
Так что остается перебирать файлы.

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

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

Идея касательно прав - хороша. Но вопрос был о том, как одним махом семерых побивахом, не трогая прав. По-моему, судя по документации, для этого существует команда ATTRIB.
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Атрибут папки,распространяющийся в глубь
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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