VB锁文件夹

VB锁文件夹
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 '关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等。涉及文件处理时，这个函数通常与vb的close命令相似。应尽可能的使用close，因为它支持vb的差错控制。注意这个函数使用的文件句柄与vb的文件编号是完全不同的

Private Const OPEN_EXISTING = 3                       '文件必须已经存在。由设备提出要求
Private Const FILE_FLAG_BACKUP_SEMANTICS = &H2000000  '在打开或生成文件任何文件时,系统一般执行安全检查来确证试图打开或生成一个文件的进程拥有所要求的访问权限.然儿 , 备份或恢复软件可以越过特定的文件安全检查,并且只允许执行备份或恢复.

Private Const GENERIC_READ = &H80000000               '如果为 GENERIC_READ 表示允许对设备进行读访问,只需设置这个参数即可保护文件夹

Dim mlnghDir As Long

Private Sub Command1_Click()

    Dim PathDir As String

    PathDir = "D:\ART"

    mlnghDir = CreateFile(PathDir, GENERIC_READ, ByVal 0&, ByVal 0&, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, ByVal 0&)


End Sub

Private Sub Command2_Click()

    CloseHandle mlnghDir


End Sub



Private Sub Form_Unload(Cancel As Integer)

CloseHandle mlnghDir

End Sub