下面是一个使用VB6开发的文件夹加密器的示例代码：
Option Explicit
Private Sub cmdEncrypt_Click()
Dim folderPath As String
Dim password As String '获取要加密的文件夹路径和密码
folderPath = txtFolderPath.Text
password = txtPassword.Text
If folderPath = "" Or password = "" Then
MsgBox "请输入文件夹路径和密码！", vbExclamation, "错误"
Exit Sub
End If '加密文件夹
EncryptFolder folderPath, password
MsgBox "文件夹已成功加密！", vbInformation, "完成"
End Sub
Private Sub cmdDecrypt_Click()
Dim folderPath As String
Dim password As String '获取要解密的文件夹路径和密码
folderPath = txtFolderPath.Text
password = txtPassword.Text
If folderPath = "" Or password = "" Then
MsgBox "请输入文件夹路径和密码！", vbExclamation, "错误"
Exit Sub
End If '解密文件夹
DecryptFolder folderPath, password
MsgBox "文件夹已成功解密！", vbInformation, "完成"
End Sub
Private Sub EncryptFolder(folderPath As String, password As String)
Dim fso As Object
Dim folder As Object
Dim file As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderPath)
For Each file In folder.Files
'使用密码进行文件加密
EncryptFile file.Path, password
Next
For Each subFolder In folder.SubFolders
'递归加密子文件夹
EncryptFolder subFolder.Path, password
Next
Set fso = Nothing
Set folder = Nothing
Set file = Nothing
End Sub
Private Sub DecryptFolder(folderPath As String, password As String)
Dim fso As Object
Dim folder As Object
Dim file As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderPath)
For Each file In folder.Files
'使用密码进行文件解密
DecryptFile file.Path, password
Next
For Each subFolder In folder.SubFolders
'递归解密子文件夹
DecryptFolder subFolder.Path, password
Next
Set fso = Nothing
Set folder = Nothing
Set file = Nothing
End Sub
Private Sub EncryptFile(filePath As String, password As String)
Dim objShell As Object
Dim encryptedFilePath As String
Set objShell = CreateObject("Shell.Application") '使用命令行工具cipher进行文件加密
encryptedFilePath = Left(filePath, Len(filePath) - 4) & ".encrypted"
objShell.ShellExecute "cmd.exe", "/c cipher /e """ & filePath & """", "", "", 0 '重命名加密后的文件为原始文件名
Name encryptedFilePath As filePath
Set objShell = Nothing
End Sub
Private Sub DecryptFile(filePath As String, password As String)
Dim objShell As Object
Dim decryptedFilePath As String
Set objShell = CreateObject("Shell.Application") '使用命令行工具cipher进行文件解密
decryptedFilePath = Left(filePath, Len(filePath) - 10) & ".decrypted"
objShell.ShellExecute "cmd.exe", "/c cipher /d """ & filePath & """", "", "", 0 '重命名解密后的文件为原始文件名
Name decryptedFilePath As filePath
Set objShell = Nothing
End Sub
这段代码使用VB6开发了一个简单的文件夹加密器。它包含两个按钮，分别用于加密和解密文件夹。用户需要输入要操作的文件夹路径和密码。
`EncryptFolder`和`DecryptFolder`过程用于递归地遍历文件夹和子文件夹，并对每个文件进行加密或解密操作。在加密或解密文件时，使用`Shell.Application`对象调用命令行工具`cipher`来执行实际的加密或解密操作。加密后的文件会被重命名为`.encrypted`扩展名，解密后的文件会被重命名为`.decrypted`扩展名。
