Esto lo que hace es proteger un directorio o carpeta. Si abres el Explorador el directorio aparece, pero al hacer clic en él no muestra los archivos que contiene. O sea, debería titularlo "ocultar archivos de una carpeta".

Código:

Option Explicit


Private Type BrowseInfo
 hWndOwner As Long
 pIDLRoot As Long
 pszDisplayName As Long
 lpszTitle As Long
 ulFlags As Long
 lpfnCallback As Long
 lParam As Long
 iImage As Long
End Type


Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long


Dim sPath As String
Dim FSO As New FileSystemObject
Dim sDir As Folder
' Proyecto -> Referencias = Microsoft Scripting Runtime


Private Sub Form_Load()
 cmdSeleccionar.Caption = "Selecciona carpeta"
 cmdProteger.Caption = "Proteger carpeta"
 cmdDesproteger.Caption = "Desproteger carpeta"
End Sub


Private Sub cmdSeleccionar_Click()
 Dim lRet As Long
 Dim BrI As BrowseInfo


 lRet = SHBrowseForFolder(BrI)
 If lRet Then
 sPath = String$(255, 0)
 SHGetPathFromIDList lRet, sPath
 If InStr(sPath, vbNullChar) <> 0 Then
   sPath = Left(sPath, InStr(sPath, vbNullChar) - 1)
 End If
 End If
 Text1 = sPath
 If InStr(1, sPath, "{", vbTextCompare) Then
 ' la carpeta se había protegido
 cmdDesproteger.Enabled = True
 cmdProteger.Enabled = False
 Else
 cmdProteger.Enabled = True
 cmdDesproteger.Enabled = False
 End If
 Text1.SetFocus
End Sub


Private Sub cmdProteger_Click()
 Dim sExt As String
 sExt = ".{FC9FB64A-1EB2-4CCF-AF5E-1A497A9B5C2D}" ' aparece la carpeta, pero sin archivos
 
 On Error GoTo hErr
 FSO.MoveFolder sPath, sPath & ".{FC9FB64A-1EB2-4CCF-AF5E-1A497A9B5C2D}"
 Set sDir = FSO.GetFolder(sPath & ".{FC9FB64A-1EB2-4CCF-AF5E-1A497A9B5C2D}")
 sDir.Attributes = Hidden
 
 MsgBox "Carpeta protegida.", vbApplicationModal + vbInformation
 Exit Sub
hErr:
 ' Ten en cuenta que algunas carpetas no se pueden proteger
 ' p.e. Windows, Mis Documentos o el Directorio actual
 MsgBox "La carpeta " & sPath & " No se puede proteger.", vbApplicationModal + vbInformation
 cmdProteger.Enabled = False
 cmdSeleccionar.SetFocus
End Sub


Private Sub cmdDesproteger_Click()
 FSO.MoveFolder sPath, Left(sPath, InStr(sPath, ".{") - 1)
 Set sDir = FSO.GetFolder(Left(sPath, InStr(sPath, ".{") - 1))
 sDir.Attributes = Normal
 MsgBox "Eliminada la protección.", vbApplicationModal + vbInformation
 Text1 = ""
End Sub

Como siempre, es susceptible de mejoras, si a alguién se le ocurre alguna, sería bueno que lo indicara.


Saludos

Existe una mejor manera de proteger una carpeta.


en el DOS Rename carpeta carpeta + alt 254





bye

Bueno, en realidad nadie dijo que fuera la mejor manera, sino una forma de hacerlo desde Visual Basic.


De todas formas lo que propones está obsoleto a partir de la versión 98 de Windows (es decir no funciona en W2000,...ni XP).


Saludos

La forma que dice Dragonice es la que utilizaba en el secundario (DOS 6.x, allá por el 94/5) para evitar el acceso de otras personas a mis carpetas (DOS nunca fue multiusuario)

De todas formas, (aparte de la aclaración de que es obsoleto como dijo Anibal) eso NO es para proteger carpetas, sino simplementa para dificultar su acceso (ya que el caracter 255 no tiene representación)... por supuesto esta triquiñuela era completamente inútil si otro más sabía de esto.

Otra forma de eliminar esa "trampita" era utilizar el "ncd" (Norton Change Directory) con el cual no había problemas...

Saludos

PD: Perdón, pero me puse nostálgico.

PD2: ¡Qué lindos eran aqullos días donde modificabamos el command.com para que no leyera el autoexec.bat apenas iniciado, sino cualquier otro archivo donde habíamos previamente dejado un mensaje para el próximo usuario!!!

Ese codigo en VB se podra utilizar tambien para proteger un archivo especifico?

en XP eso que escribió Dragonice no funciona.

Humm eso que dice Dragonicese utilizaba mucho en win95, 98, me y pues como era un caracter que no reconocia windows porque estaba en DOS pues por eso no se podia accesar a la carpeta ...

Aun asi se podia ver .. Yo lo que hacia era dar un Dir y nomas copiaba y pegaba jajaja y ya cambiaba con rename era relativamente fácil ..

Anibal gracias por el código es bueno!!!

Suerte a todos amigos!

Ese código fuente Visual Basic anterior de Anibalnos hace muchas pelotas... Yo lo se de una maneramás sencilla fácil de entendery sin usar ninguna referencia dllen el proyecto. Simplemente quedaría así:

====================
'Agrega dos CommandButton con el nombre predeterminado _
(default)en el nuevo proyecto e inserta el siguiente _
código en el formulario:
Option Explicit

Dim Carpeta As String, Extension As String, CarpExt As String

Private Sub Form_Load()
Carpeta = "C:\Mi carpeta" '-->Cambiar por tu carpeta.
Extension = ".{FC9FB64A-1EB2-4CCF-AF5E-1A497A9B5C2D}"
Command1.Caption = "Proteger carpeta"
Command2.Caption = "Desproteger carpeta"
End Sub

'Para proteger carpeta:
Private Sub Command1_Click()
On Error GoTo E_53 '-->Error 53 es: No se encuentra el archivo.
Name Carpeta As Carpeta & Extension
MsgBox "La carpeta ''" & Carpeta & "'' ha sido protegida.", 64
Exit Sub
E_53:
If Err.Number = 53 Then MsgBox "La carpeta no se puede proteger", 16
End Sub

'Para desproteger carpeta:
Private Sub Command2_Click()
CarpExt = Carpeta & Extension
On Error GoTo E_53
Name CarpExt As Mid(CarpExt, 1, Len(CarpExt) - 39) '-->Renombra menos los 39 caracteres de extension.
MsgBox "La carpteta ''" & Carpeta & "'' ha sido desprotegida", 64
Exit Sub
E_53:
If Err.Number = 53 Then MsgBox "No se puede desproteger esta carpeta.", 16
End Sub
====================

Como ven es fácil. Se puede hacer manualmente pero no se puede restrablecer la carpeta mas que tan solo con el código fuente.
Haaa si quieren cambiar el icono de la carpeta FolderMessenger que muestra el código pre-anterior de Anibalque tanto nos hace pelotas, cambien la extensión: ".{FC9FB64A-1EB2-4CCF-AF5E-1A497A9B5C2D}" por: ".{FEF10DED-355E-4e06-9381-9B24D7F7CC88}". Esta clave nos servirá para bloquear la carpeta sin que por nada se pueda abrir. Esa clave que les doy se llama CompositeFolder. La extraí con un programa hackeadordel Shell32.dll de Windows, ahí se encuentran todas las claves de extensión para carpetasque utiliza Windows, desde la llamada Shellque alude a la Papelera de reciclaje titulada RecycleBin hasta la mismadePanel de control llamda ControlPanel. O sea, que a tu capeta la puedes proteger sobreponiendole cualquiera de esta claves y se mostrará por un icono según dicha clave. Por ejemplo, si es el del ControlPanel ({21EC2020-3AEA-1069-A2DD-08002B30309D}) tu carpeta se convertirá en el icono del Panel de control. Si intentasabrir tu carpeta ya convertida no te mostrará tus archivos, sino los mismo que aparecen en el Panel de control original, aunque tus archivos siguen guardados en esa carpeta disfrasa de Panel de control.

Si tienendudassobre cómo bloquear, ocultar carpetas o ficheros sin necesidad de ir al las herramientas de Windows "Mostra archivos ocultos" tengo mi email ifm_555@hotmail.com... Bye.Edited by: ISMA

Hola!!
Fijate que probe tu rutina pero no me protegió la carpeta solo le añadio la extensión; me gustaria saber si tienes una versión mejorada; estoy utilizando VB6-SP6 con XP-Pro-SP3 y necesito proteger una carpeta para que los usuarios no cambien los archivos (o borren) de una aplicación que esta en ella; ya la oculte pero creo que tambien saben mapearla. Mi necesidad es que solo se pueda abrir por medio del programa que se utiliza para leer y escribir los archivos (son txt) pero no se pueda ver(o acceder) por medio del explorer de windows u otra forma.

Nota: Tambien aceptaría ideas alterna que no requieran programas externos, bueno solo GPL(GNU).

Saludos y GRACIAS