如何实现文件夹加密 - 编程论坛

#2

multiple19022008-10-04 19:50

你打算用什么方法加密？

#3

我是菜鸟哦2008-10-04 20:03

我的思路是1，判断当前鼠标单击文件的文件名（这个我找了半天，找不出，难道用句柄？）

#4

youlv2008-10-04 20:52

回复 2# multiple1902 的帖子

目的是让自己多点私人空间
用最简单的方法就好

#5

youlv2008-10-04 21:14

补充一点,我电脑多人看,要是能实现文件夹不能复制和删除就更理想了
大家有什么点子吗?
本人非常感谢!!

#6

youlv2008-10-04 21:16

回复 3# 我是菜鸟哦的帖子

感谢指点

#7

我是菜鸟哦2008-10-04 21:16

。。。。。。。设置个权限用户不久结了，说半天这么麻烦

#8

三断笛2008-10-04 21:57

我有源码....不过刚才一下子没找到代码太多了....

#9

三断笛2008-10-04 22:00

先找着一个锁定文件夹的了,你随便加点个加密的就OK了
Option Explicit
Private Const FILE_LIST_DIRECTORY = &H1
Private Const FILE_SHARE_READ = &H1&
Private Const FILE_SHARE_DELETE = &H4&
Private Const OPEN_EXISTING = 3
Private Const FILE_FLAG_BACKUP_SEMANTICS = &H2000000
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal PassZero As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal PassZero As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Dim File_Share_Flag As Long
Dim hDir As Long
Private Sub cmdlock_Click()
    Dim PathDir As String
    PathDir = Text1.Text
    hDir = CreateFile(PathDir, FILE_LIST_DIRECTORY, File_Share_Flag, _
                      ByVal 0&, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, ByVal 0&)
    cmdlock.Enabled = False
    cmdunlock.Enabled = True
End Sub
Private Sub cmdunlock_Click()
    CloseHandle hDir
    cmdlock.Enabled = True
    cmdunlock.Enabled = False
End Sub
Private Sub Form_Load()
    File_Share_Flag = 0 'if =FILE_SHARE_READ then read only (for example)
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Call cmdunlock_Click
End Sub

#10

youlv2008-10-04 22:20

谢谢,辛苦了!

#11

skdyu2012-10-13 15:23

看看，学学，谢谢

#12

skdyu2012-10-15 20:42

谢谢，学习学习

#13

wdm18640352013-06-20 23:29

这个加密程序很好用
http://www.
http://www.