VB锁文件夹代码：

天云上人

1. Option Explicit
   
2. 
   
3. Private Const FILE_LIST_DIRECTORY = &H1
   
4. 
   
5. Private Const FILE_SHARE_READ = &H1&
   
6. 
   
7. Private Const FILE_SHARE_DELETE = &H4&
   
8. 
   
9. Private Const OPEN_EXISTING = 3
   
10. 
    
11. Private Const FILE_FLAG_BACKUP_SEMANTICS = &H2000000
    
12. 
    
13. Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA"
    
14. (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal
    
15. dwShareMode As Long, ByVal PassZero As Long, ByVal
    
16. dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long,
    
17. ByVal PassZero As Long) As Long
    
18. 
    
19. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
    
20. 
    
21. Dim File_Share_Flag As Long
    
22. 
    
23. Dim hDir As Long
    
24. 
    
25. Private Sub cmdlock_Click()
    
26. 
    
27.     Dim PathDir As String
    
28. 
    
29.     PathDir = Text1.Text
    
30. 
    
31.     hDir = CreateFile(PathDir, FILE_LIST_DIRECTORY, File_Share_Flag, _
    
32. 
    
33.                       ByVal 0&, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, ByVal 0&)
    
34. 
    
35.     cmdlock.Enabled = False
    
36. 
    
37.     cmdunlock.Enabled = True
    
38. 
    
39. End Sub
    
40. 
    
41. Private Sub cmdunlock_Click()
    
42. 
    
43.     CloseHandle hDir
    
44. 
    
45.     cmdlock.Enabled = True
    
46. 
    
47.     cmdunlock.Enabled = False
    
48. 
    
49. End Sub
    
50. 
    
51. Private Sub Form_Load()
    
52. 
    
53.     File_Share_Flag = 0 'if =FILE_SHARE_READ then read only (for example)
    
54. 
    
55. End Sub
    
56. 
    
57. Private Sub Form_Unload(Cancel As Integer)
    
58. 
    
59.     Call cmdunlock_Click
    
60. 
    
61. End Sub

复制代码

核心在于 CreateFile 的 FILE_LIST_DIRECTORY