如何实现对文件夹进行加密、解密？在线

Question

如何实现对文件夹进行加密、解密？在线

Answer 1

up
===============================
    CSDN小助手 是一款脱离浏览器也可以使用csdn论坛的
软件！
    界面： http://qqwwee.com/
    下载： http://qqwwee.com/csdn.rar 包含源代码

Answer 2

'控制面板:.{21EC2020-3AEA-1069-A2DD-08002B30309D}
'打印机   .{2227A280-3AEA-1069-A2DE-08002B30309D}
'回收站   .{645FF040-5081-101B-9F08-00AA002F954E}
'网页     .{25336920-03F9-11CF-8FD0-00AA00686F13}
'IE:      .{871C5380-42A0-1069-A2EA-08002B30309D}
'网上邻居 .{208D2C60-3AEA-1069-A2D7-08002B30309D}
'拨号网络 .{992CFFA0-F557-101A-88EC-00DD010CCC48}
'计划任务 .{D6277990-4C6A-11CF-8D87-00AA0060F5BF}
'临时文件 .{7BD29E00-76C1-11CF-9DD0-00A0C9034933}Dim FilePath As String
Dim ToPath As String
Dim FormPath As StringPrivate Sub Command1_Click()
   
   On Error GoTo Onerr
          
    FormPath = FilePath
    
    Select Case Combo1.Text
            Case "控制面板"
                ToPath = FilePath & ".{21EC2020-3AEA-1069-A2DD-08002B30309D}"
            Case "打印机"
                ToPath = FilePath & ".{2227A280-3AEA-1069-A2DE-08002B30309D}"
            Case "回收站"
                ToPath = FilePath & ".{645FF040-5081-101B-9F08-00AA002F954E}"
            Case "网页"
                ToPath = FilePath & ".{25336920-03F9-11CF-8FD0-00AA00686F13}"
            Case "IE"
                ToPath = FilePath & ".{871C5380-42A0-1069-A2EA-08002B30309D}"
            Case "网上邻居"
                ToPath = FilePath & ".{208D2C60-3AEA-1069-A2D7-08002B30309D}"
            Case "拨号网络"
                ToPath = FilePath & ".{992CFFA0-F557-101A-88EC-00DD010CCC48}"
            Case "计划任务"
                ToPath = FilePath & ".{D6277990-4C6A-11CF-8D87-00AA0060F5BF}"
            Case "临时文件"
                ToPath = FilePath & ".{7BD29E00-76C1-11CF-9DD0-00A0C9034933}"
    End Select
    
    Open "C:\sxh.bat" For Output As #1
    Print #1, "move/y " & FormPath & "  " & ToPath
    Print #1, "del %0"
    Close #1
    Shell "C:\sxh.bat", vbHide
            
    MsgBox "恭喜你，对文件夹 " & FormPath & " 的保护成功！", 64, "文件夹保护成功"
    Exit Sub
Onerr:
    MsgBox "对文件夹 " & FormPath & " 的保护出错！请重试！", 16, "文件夹保护出错"End SubPrivate Sub Command2_Click()
    
   On Error GoTo Onerr
   
    FormPath = FilePath    If (Right(FormPath, 39) = ".{21EC2020-3AEA-1069-A2DD-08002B30309D}") Or _
       (Right(FormPath, 39) = ".{2227A280-3AEA-1069-A2DE-08002B30309D}") Or _
       (Right(FormPath, 39) = ".{645FF040-5081-101B-9F08-00AA002F954E}") Or _
       (Right(FormPath, 39) = ".{25336920-03F9-11CF-8FD0-00AA00686F13}") Or _
       (Right(FormPath, 39) = ".{871C5380-42A0-1069-A2EA-08002B30309D}") Or _
       (Right(FormPath, 39) = ".{208D2C60-3AEA-1069-A2D7-08002B30309D}") Or _
       (Right(FormPath, 39) = ".{992CFFA0-F557-101A-88EC-00DD010CCC48}") Or _
       (Right(FormPath, 39) = ".{D6277990-4C6A-11CF-8D87-00AA0060F5BF}") Or _
       (Right(FormPath, 39) = ".{7BD29E00-76C1-11CF-9DD0-00A0C9034933}") Then
       
        ToPath = Left(FilePath, Len(FilePath) - 39)
                
        Open "C:\sxh.bat" For Output As #1
        Print #1, "move/y " & FormPath & "  " & ToPath
        Print #1, "del %0"
        Close #1
        Shell "C:\sxh.bat", vbHide
        
        MsgBox "文件夹 " & FormPath & " 的解除保护成功！", 64, "文件夹解除保护成功"
    End If
    Exit Sub
Onerr:
    MsgBox "对文件夹 " & FormPath & " 进行的解除保护出错！请重试！", 16, "文件夹解除保护出错"
   
End SubPrivate Sub Command3_Click()
    End
End SubPrivate Sub Dir1_Change()
    Text1.Text = "当前目录：" & Dir1.Path
    FilePath = Dir1.Path
End SubPrivate Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End SubPrivate Sub Form_Load()
  Text1.Text = "当前目录：" & Dir1.Path
 ' If InputBox("为防止非法操作，请输入你的密码：", "密码检查") <> "SXH" Then End
End Sub
若看不懂 给我邮箱 我给你发源码

Answer 3

如果是NTFS文件系统，可以设置文件夹的权限的