在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

上一篇:到哪裏買二建書

下一篇:Mfcsettimer源代碼