vb实现禁止指定文件夹的打开（包括双击，右键，资源管理器））

你必须按下cmdlock键才能锁定文件夹

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"&