API函数SHFileOperation 多文件操作

sj15627581616

1. Private Type SHFILEOPSTRUCT
   
2. 
   
3.         hwnd As Long
   
4. 
   
5.         wFunc As Long       '对文件的操作指令
   
6. 
   
7.         pFrom As String     '源文件或路径
   
8. 
   
9.         pTo As String       '目的文件或路径
   
10. 
    
11.         fFlags As Integer   '操作标志
    
12. 
    
13.         fAnyOperationsAborted As Long
    
14. 
    
15.         hNameMappings As Long
    
16. 
    
17.         lpszProgressTitle As String
    
18. 
    
19. End Type
    
20. 
    
21. Private Declare Function SHFileOperation Lib "shell32" (lpFileOp As SHFILEOPSTRUCT) As Long
    
22. 
    
23. Const FO_COPY = &H2
    
24. 
    
25. Const FO_DELETE = &H3
    
26. 
    
27. Const FO_MOVE = &H1
    
28. 
    
29. Const FO_RENAME = &H4
    
30. 
    
31. Const FOF_ALLOWUNDO = &H40
    
32. 
    
33. Private Sub 多文件操作()
    
34. 
    
35.     Dim xFile As SHFILEOPSTRUCT
    
36. 
    
37.     Dim a As String
    
38. 
    
39.     Dim b As String
    
40. 
    
41.     a = "C:\Users\Administrator\Desktop\777.txt"
    
42. 
    
43.     b = "C:\Users\Administrator\Desktop\888.txt"
    
44. 
    
45.     xFile.pFrom = a & Chr(0) & b   '文件路径
    
46. 
    
47.     xFile.pTo = "C:\Users\Administrator\Desktop\新建文件夹 (2)"
    
48. 
    
49.     'xFile.wFunc = FO_DELETE
    
50. 
    
51.     xFile.wFunc = FO_COPY
    
52. 
    
53.     'xFile.wFunc = FO_MOVE
    
54. 
    
55.     xFile.fFlags = -1
    
56. 
    
57.      SHFileOperation xFile
    
58. 
    
59. End Sub

复制代码

代码中 可以进行多文件删除  但是多文件复制跟移动只执行第一个，了解这个API的大佬们指点一下