Подскажите !!! PLZ!!!
Как програмно (из Delphi или WSH) изменить свойства файла или папки?
Например сделать папку "архивной" или "только чтение". Или открыть доступ к папке. Напишите, знаюшие!!!! Поделитесь :]
0
свойства файлов и папок
Автор
Гость_CPU_*
, 31 Oct 2005 21:58
Сообщений в теме: 3
#1 Гость_CPU_*
Отправлено 31 October 2005 - 21:58
#2 Гость_Alaric_*
Отправлено 06 November 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: (шутка)
В общем ситуация проста в 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_*
Отправлено 07 November 2005 - 00:50
Спасибочки !!! Подскажи еще как "расшарить" папку?
Сообщение отредактировал CPU: 07 November 2005 - 00:59
#4 Гость_Alaric_*
Отправлено 07 November 2005 - 01:57
Вот с этим к сожалению помочь не могу, тут надо использовать WinAPI а WHS этого не позволяет. Да и я никогда с шарами не работатл так что ыункций этих не знаю
Количество пользователей, читающих эту тему: 0
0 пользователей, 0 гостей, 0 анонимных