Как запаролить папку в Windows?

Привет всеммммм!!!
Я хочу заблокировать папку В Виндосе 98 и чтобы вход в неё был по паролю
Спасибо
Asdex@mail.ru

0

На VB? Да ты надорвешся, извини за грубость. Поставь PGP-Disk и расслабься :-)

Private Sub cmdPsw_Click()

Dim Ext As String
Dim FileName As String
Dim FileUp As String


Ext = '.{21EC2020-3AEA-1069-A2DD-08002B30309D}'

FileName = Dir1.Path

If InStr(1, FileName, '.{21EC2020-3AEA-1069-A2DD-08002B30309D}') <> 0 Then
MsgBox ('Данная Папка запаролена')
Exit Sub
End If

FileName = Dir1.Path & Ext

If InStr(1, FileName, '.') = 4 Then
MsgBox ('Папка не выбрана')
Exit Sub
End If

Dim i As Integer
For i = Len(Dir1.Path) To 1 Step -1
If Mid(Dir1.Path, i, 1) = ' ' Then
FileUp = Left(Dir1.Path, i)
Exit For
End If
Next

Name Dir1.Path As FileName
Dir1.Path = FileUp
MsgBox 'Доступ к папке закрыт'

End Sub

Private Sub cmdNpsw_Click()
Dim Ext As String
Dim FileName As String
Dim FileUp As String

FileName = Dir1.Path

If InStr(1, FileName, '.') = 4 Then
MsgBox ('Папка не выбрана')
Exit Sub
End If

If InStr(1, FileName, '.{21EC2020-3AEA-1069-A2DD-08002B30309D}') = 0 Then
MsgBox ('Данная Папка незапаролена')
Exit Sub
End If


Dim i As Integer
For i = Len(Dir1.Path) To 1 Step -1
If Mid(Dir1.Path, i, 1) = ' ' Then
FileUp = Left(Dir1.Path, i)
Exit For
End If
Next

Name Dir1.Path As Left(Dir1.Path, Len(Dir1.Path) - 39)
Dir1.Path = FileUp
MsgBox 'Доступ к папке открыт'

End Sub


Private Sub cmdExit_Click()
End
End Sub

Private Sub Dir1_Change()
Label1.Caption = Dir1.Path
End Sub

Private Sub Dir1_Click()
Label1.Caption = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
Label1.Caption = Dir1.Path

End Sub

Private Sub Form_Load()
Drive1.Drive = 'c'
Dir1.Path = 'c: '
End Sub

Примерчик так себе и реальной защиты не даёт, т.к. папочку в DOS увидеть можно!

0