'**************************************************************************** '描 述:文件夹锁定解锁示例'**************************************************************************** 'Author: Pierre AOUNOption 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 LongDim 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说明:界面上一个text1-〉指定路径 2个按钮分别加锁和解所
.{0CD7A5C0-9F37-11CE-AE65-08002B2E1262} 文档
.{871C5380-42A0-1069-A2EA-08002B30309D} 浏览器
.{645FF040-5081-101B-9F08-00AA002F954E} 回收站
.{21EC2020-3AEA-1069-A2DD-08002B30309D} 控制面板呵呵……怎么打开呢?dos下ren 改文件名例如:ren aa.{0CD7A5C0-9F37-11CE-AE65-08002B2E1262} aa
二、就是修改注册表。
将要隐藏的文件属性设为隐藏,然后 HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/Current Version/Explorer/Advanced/Folder/Hidden下,单击SHOWALL,在右边双击Checkedvalue,设置为1打开,可以输入文件路径,也可以修改注册表
它是不是还是类似WINRAR这样的方法,先将文件夹打包成一个文件,然后对这个文件进行加密呢/?????
就是进入文件夹时提示输入密码,如果不准确,就不让其进入步骤:
1.进入要加密的文件夹,右键->自定义文件夹
2.下一步,下一步,下一步
2.直到打开一个记事本文件,
3.将下面脚本放进去(其中123为密码,可以改成你自己的密码)
(直接放在最上面好了,容易找到,呵呵)
<script language="VBScript">
DIM PWD
PWD=INPUTBOX("请输入密码")
if pwd<>"123" then
msgbox "密码错误"
window.location.href="C:\"
end if
</script>
4.保存,关闭
5.在“自定义文件夹向导”窗口,点击“完成”
再次进入时,提示输入密码,如果密码不正确,则跳转到 "C:\"在 win2000下,测试通过
我看过一个程序他是这么做的
自己做了一个文件
他把对某个文件夹里的文件和目录都放在哪个文件里
对文件夹的操作就是对文件的操作
类似于 rar 文件 访问文件夹里的文件就是 先提取 再访问
'描 述:文件夹锁定解锁示例'****************************************************************************
'Author: Pierre AOUNOption 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 LongDim 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说明:界面上一个text1-〉指定路径
2个按钮分别加锁和解所