UC知道在vb中实现对文件夹的加密
来源：百度知道 编辑：UC知道 时间：2024/05/22 18:57:31
那种简单的隐藏欺骗型太简单了，就不要说了。谁能提供一种复杂点的，能用vb代码实现的。高分感谢！
比较简单，用程序将文件名修改，例如修改为原文件夹名.{f456782-4c8b-57ff-00dd00786f6sw}，即可，如果要解密，需要使用Winrar.exe解密。
具体：在一个窗体添加DriveListBox控件一个，DirListBox控件一个，二个按钮控件，按钮分别是“加密”和“退出”。
主要代码如下：
Private Sub Command2_Click()
Name Dir1.List(Dir1.ListIndex) As Dir1.List(Dir1.ListIndex) & ".{f456782-4c8b-57ff-00dd00786f6sw}"
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
我有方法，就是文件夹伪装，伪装了以后就看不出是文件夹了，
我这有个源代码压缩包，你看看
qq：314177791