Foros del Web - Poner contraseña a carpetas

Foros del Web (http://www.forosdelweb.com/)

- Visual Basic clásico (http://www.forosdelweb.com/f69/)

- - Poner contraseña a carpetas (http://www.forosdelweb.com/f69/poner-contrasena-carpetas-399566/)

Poner contraseña a carpetas

Holami prgutna es ...Como podria hacer mediante VB para que por ejemplo cdo un usuario quiera entrar a una carpreta determinada (configurada dicah carpeta en el programa hecho en VB) le pida una contraseña para poder ver el contenido de la misma...ybue sila contraseña es incorrecta que se cierre el explorer o que no se pueda ver el contenido de dicha carpeta

salu2 y mucahs gracias

Hola con el explorer no hay problemas el tema es si se abre desde un commondialog por ejemplo, u otra aplicacion que sea de tipo explorador no se podria hacer nada

Cita:

Iniciado por LeandroA

Hola con el explorer no hay problemas el tema es si se abre desde un commondialog por ejemplo, u otra aplicacion que sea de tipo explorador no se podria hacer nada

holaleandro m,e podrias decir como hacer mediante explorer para poenr una contraseña a una carpta ? salu2 y gracias

grcias cristian lo pruebo y leugo te aviso ke tal me fue, salu2 y gracias nuevamente

hola cristian, el prog para poenr contraseñas a las carpetas en winXP no me funciona, sera porq hay ke tener particion en ntfs ?

salu2

hola te paso un ejemplo pero tenes que tene esto en cuenta;
si se le cambia a la carpeta el nombre no funciona
y si no se abre desde el explorer tampoco

agrega un timer1 en un formulario y este codgio

La carpeta que bloquea es "Mis documentos"
y la contraseña "carlito"

Cita:

Option Explicit
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const SC_CLOSE = &HF060&
Private Const WM_SYSCOMMAND = &H112
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0
Dim MemContraseña As String
Dim MiContraseña As String
Dim NombreCarpeta As String
Private Sub Form_Load()
Timer1.Interval = 100
Me.Visible = False
App.TaskVisible = False
MiContraseña = "Carlito"
NombreCarpeta = "Mis documentos"
End Sub

Private Sub Timer1_Timer()
BuscarCarpeta NombreCarpeta
End Sub

Private Function BuscarCarpeta(NombreCarpeta As String)
Dim hwnd As Long
hwnd = FindWindow(vbNullString, NombreCarpeta)

If hwnd <> 0 Then
If MemContraseña = "" Then
Call ShowWindow(hwnd, SW_SHOWHIDE)
MemContraseña = InputBox("Ingrese su contraseña", NombreCarpeta)
If Not UCase(MemContraseña) = UCase(MiContraseña) Then
Call SendMessage(hwnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&)
If MemContraseña <> "" Then MsgBox "La contraseña es incorrecta", vbCritical, NombreCarpeta
MemContraseña = ""
End If
Else
Call ShowWindow(hwnd, SW_SHOWNORMAL)
End If
Else
MemContraseña = ""
End If

End Function

Hola Leandro Muchas Gracias Ahorita Lo Pruebo Y Te Comento Ke Tal Me Fue.
Salu2 Desde Santafe ;) Y Vamos Argentina Carajo En El Mundialllllll !!!!

Respuesta: Poner contraseña a carpetas

Cita:

Iniciado por LeandroA (Mensaje 1592820)

Quiero saber si hay forma de hacer que se pueda bloquear más carpetas, no solo mi pc y mis documntos, carpetas que sean: C:\dsadsa