vb锁定文件夹

请注意：该动画内所含广告与本站无任何关系，为作者个人宣传，网络交易风险自负

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
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Call cmdunlock_Click
End Sub