如何实现文件夹加密

大家好,我学VB不久,现在想自己编个文件夹加密程序
想知道好如何实现鼠标点选文件夹跳出密码输入框
请各位大虾指点一下思路,会应用到哪一条API?
在此先谢了!!

搜索更多相关主题的帖子: 文件

你打算用什么方法加密？

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

回复 2# multiple1902 的帖子

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

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

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

感谢指点

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

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

先找着一个锁定文件夹的了,你随便加点个加密的就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

谢谢,辛苦了!