Как сделать секретную папку.

Статья рассчитана на начинающих пользователей.И так допустим у вас есть

xxxx -папка в который вы храните свою конфиденциальную информация
например коллекцию песен джастина бибера ладно,шучу ))
ВАм нужно скрыть эту папку от посторонних глаз сделать это
можно двумя способами 1ый -очень лёгкий 2ой -чуть сложнее.
1йы -Щёлкаем правой кнопкой мыши на вашу папку,переименовываем её на — `
эта мелкая штучка едва заметна,но ярлычок папки всё ещё виден -исправляем:
клик правой кнопкой мыши по папке -> свойства -> сменить значок и выбираем
пустой,всё осталось только переместить папку в ту часть рабочего стола, в которой
разглядеть её будет сложнее всего.Теперь папку трудно увидеть но легко найти
методом выделения,тогда нам подойдёт второй способ-напишем не большую vbs
программу с помощью которой можно будет «ставить папку под пароль» и так создаем
текстовый документ и вписываем в него вот это:

Set FSO = CreateObject(«Scripting.FileSystemObject»)
p=inputbox(«что вы хотите сделать?», «??») ‘Выводим окошко с запросом команды
if p=»засекретить» then ‘ если пользователь ввёл «засекретить» то…
secret=inputbox(«Введи пароль для подтверждения личности», «Удостоверение») ‘ выводим ещё одно окошко с запросом пароля
if secret=»123″ then ‘ Если пароль 123
secret2=inputbox(«Введи имя и полный путь до папки», «ввод») ‘ТО спрашиваем какую папку надо засекретить
DIR = secret2 ‘приравниваем ответ пользователя к переменной DIR
Set DI = FSO.GetFolder(DIR) ‘получаем путь до папки
DI.Attributes = 2 ‘ставим атрибут скрытый
end if
end if

if p=»рассекретить» then ‘если ответом на окошко с запросом команды будет «рассекретить» то
secret3=inputbox(«Введи пароль для подтверждения личности», «Удостоверение») ‘выведем запрос пароля
if secret3=»123″ then ‘ если пароль 123 тогда
secret4=inputbox(«Введи имя и путь до папки», «ввод») ‘ просим ввести имя или путь до папки которую надо рассекретить
DI = secret4 ‘полученный ответ мы записываем в переменную
Set DI = FSO.GetFolder(DIR) ‘получаем путь
DI.Attributes = 1 ‘ставим атрибут нормальный
end if
end if ‘всё!

Сохраняем с расширением vbs или vbe кому как больше нравится и запускаем.
Сначала появится окошко с запросом команды,там пишем либо засекретить,либо рассекретить
дальше нужно ввести пароль он у нас 123 но лучше будет изменить его на чёнить по сложнее
,после ввода правильного пароля вводим путь до папки но если папка находится в одном каталоге
с прогой то следует просто ввести имя,то папка или рассекретится или засекретится в зависимости какую команду
вы вводили в начале.Но бывают и такие ситуации когда вам надо пропалить на чужом компе(на пример компе своего друга)
ту или иную скрытую папку, нужно воспользоваться старым добрым winrarом он видит все скрытые файлы,на пример
откроем вин и зайдём туда где лежит скрытый файл и для вас он больше не скрытый ! можно завернуть его в архив и нести дамой
ну а там дело ваше. Если вы хотите купить шкафы для раздевалок недорого, настоятельно рекомендую проййти по вышеуказанной ссылке.