Работа с директориями(доступ разрешён/закрыт)

[DiSe]

Мне нужно выполнить следующий алгоритм с помощью VB.
Алгоритм:
Если открывается определённая папка, то запрашивать пароль.
Если пароль совпадё с оригинальным паролем, то открыть эту папку,
иначе - не открывать.
Достаточно простой алгоритм, но я не знаю как его осуществить. Помогите плз!

[RayShade]

На VB скорее всего вообще никак

[DiSe]

Нет ничего невозможного.

[RayShade]

Да, нет ничего невозможного. Вопрос только в целесообразности.

Поставь все на NTFS, развесь пермиссии и будет тебе искомый результат. Все. И не надо огород городить.

[alibek]

Будем исходить из того, что информация о том, защищена ли папка, хранится в базе данных. Имеется таблица с полями FULLPATH (Text*250, полный путь к папке, например "C:\My Documents\Porno") и PASSWORD (Text*20, пароль на доступ к папке); поле FULLPATH является ключевым (проиндексированно и уникально). При желании можно переделать и на INI-файлы или вообще использовать свой формат файла.
Теперь создаем проект, добавляем форму, а на форму ложим DirList Dir1.
Теперь пишешь такой код:

Код: Выделить всё

Option Explicit

Private rs As Recordset 'будем использовать ADO
Private PrevPath As String

Private Function CheckRestriction(ByVal Path As String) As Boolean
Dim pwd As String, p As String
'инициализируем rs
...
rs.MoveFirst
rs.Find "[FULLPATH] = '" & Path & "'"
If rs.EOF Then
  CheckRestriction = True
  Exit Function
End If
pwd = rs!PASSWORD
Do
  p = InputBox("Папка защищена паролем! Введите пароль:",vbNullString,"Открытие папки")
  If Len(p) = 0 Then Exit Do
  If p = pwd Then Exit Do
  If p <> pwd Then
    MsgBox "Введен неверный пароль! Повторите!"
    p = vbNullString
  End If
Loop
CheckRestriction = (Len(p)>0)
End Function

Private Sub Dir1_Click()
Dim FP As String
FP = Dir1.Path
If CheckRestriction(FP) Then
  PrevPath = FP
Else
  Dir1.Path = PrevPath
End If
End Sub


[RayShade]

Ну это не решит проблеиу если папка открывается скажем в проводнике или где либо еще А автору похоже надо было именно это

[Demonx]

Ниже брать нужно...Asm всё решит

[alibek]

RayShade, если ему нужно сделать разграничение на уровне системы, пусть правильно спрашивает Он сказал, я предложил. К тому же он спрашивал алгоритм, а не реализацию

[DiSe]

alibek: Если вы повнимательней просмотрите вопрос, то наверняка заметите, что я спрашиваю реализацию.
To All:
Есть функция API - FindWindow. Наверное она пригодится при решении задачи, но как реализовать?

[Dmitriy2003]

Абсолют согласен с модератором ( по поводу огорода). Тут придется столько кода намолоть что жизь немила будет.
----------------------------------------------------------
FindWindow врядли поможет.
----------------------------------------------------------
А вот несколько ножей !!!

1. Объект файловых уведомлений (весьма непросто)
2. Отслеживание привилегий (совсем не просто)
3. Хранение прав доступа (мучительно)

я думаю пока хватит.