Перейти к содержимому




- - - - -

свойства файлов и папок


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 3

#1 Гость_CPU_*

Гость_CPU_*
  • Гости

Отправлено 31 Октябрь 2005 - 21:58

Подскажите !!! PLZ!!!
Как програмно (из Delphi или WSH) изменить свойства файла или папки?
Например сделать папку "архивной" или "только чтение". Или открыть доступ к папке. Напишите, знаюшие!!!! Поделитесь :]

#2 Гость_Alaric_*

Гость_Alaric_*
  • Гости

Отправлено 06 Ноябрь 2005 - 01:06

CPU
В общем ситуация проста в WSHу обюъектов FOLDER и FILE есть процедура  Attributes который может принимать значение констант  FileAttribute

Const Alias = 1024 (&H400)
Const Archive = 32 (&H20)
Const Compressed = 2048 (&H800)
Const Directory = 16 (&H10)
Const Hidden = 2
Const Normal = 0
Const ReadOnly = 1
Const System = 4
Const Volume = 8

Сразу предупреждаю атрибуты Alias, Directory, Volume устанавливать и сбрасывать нельзя они чисто информационные.

ниже код который скроет все папки находящиеся в корне диска C: (шутка)
Set FS=CreateObject("Scripting.FileSystemObject") 'создаём объект  FileSystemObject
Set FLD=FS.GetFolder("c:\") ' из FileSystemObject получам объект папки(одной) путь у которой "c:\"
Set FLDs = FLD.SubFolders ' из папки получаем объек список папок который содержит список всех вложеных папок папки  FLD которая как мы помним ссылается на "c:\"
For Each FLDT In FLDs 'запускаем хитрый цикл который будет перебрать все вложеные объекты списка папок каждый рах присваивая переменной FLDT следующую подпапку
FLDT.Attributes =16+4+2 ' устанавливаем атрибуты Hiden(2) и System(4) но так как устанавливаем на папки то надо добавить и атрибут Directory(16) иначе не заработает
Next
Если этот код вставить в файл с расширением .vbs и потом запустить то все папки в корне диска C: получат атрибуты скрытый и системный.

#3 Гость_CPU_*

Гость_CPU_*
  • Гости

Отправлено 07 Ноябрь 2005 - 00:50

Спасибочки !!! Подскажи еще как "расшарить" папку?

Сообщение отредактировал CPU: 07 Ноябрь 2005 - 00:59


#4 Гость_Alaric_*

Гость_Alaric_*
  • Гости

Отправлено 07 Ноябрь 2005 - 01:57

Вот с этим к сожалению помочь не могу, тут надо использовать WinAPI а WHS этого не позволяет. Да и я никогда с шарами не работатл так что ыункций этих не знаю <_<




Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных



Добро пожаловать!
Что бы получить полный доступ ко всем форумам, созданию тем и многому другому, пожалуйста Войдите или Зарегистрируйтесь.
Вы можете не тратить время на скучную анкету, а просто войти с помощью вашей любимой социальной сети в правом верхнем углу ;)