Implementar cifrado de carpetas en vb

Es relativamente simple. Puede usar un programa para modificar el nombre del archivo, como modificar el nombre de la carpeta original. {f456782-4c8b-57ff-00dd00786f6sw}. Si desea descifrar, debe usar Winrar.exe para descifrar.

Operaciones específicas: agregue un control DriveListBox, un control DirListBox y dos controles de botón a un formulario. Los botones son "Cifrar" y "Salir" respectivamente.

El código principal es el siguiente:

Private Sub Command2_Click()

Nombre Dir1.List(Dir1.ListIndex) As Dir1.List(Dir1.ListIndex) ) & " .{f456782-4c8b-57ff-00dd00786f6sw}"

End Sub

Subunidad privada1_Change()

Dir1.Path = Unidad1.Drive

Fin del subtítulo