支持多选的文件对话框

andymark

需引用 Microsoft Office 10.0 Object Library 或更高版本

1. Dim fDialog As Office.FileDialog
   
2. Dim varFile As Variant
   
3. 
   
4. 'Clear listbox contents.
   
5. Me.FileList.RowSource = ""
   
6. 
   
7. 'Set up the File Dialog.
   
8. Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
   
9. With fDialog
   
10. 'Allow user to make multiple selections in dialog box
    
11. .AllowMultiSelect = True
    
12. 
    
13. 'Set the title of the dialog box.
    
14. .Title = "lease select one or more files"
    
15. 
    
16. 'Clear out the current filters, and add our own.
    
17. .Filters.Clear
    
18. .Filters.Add "Access Databases", "*.MDB"
    
19. .Filters.Add "Access Projects", "*.ADP"
    
20. .Filters.Add "All Files", "*.*"
    
21. 
    
22. 'Show the dialog box. If the .Show method returns True, the
    
23. 'user picked at least one file. If the .Show method returns
    
24. 'False, the user clicked Cancel.
    
25. If .Show = True Then
    
26. 'Loop through each file selected and add it to our list box.
    
27. For Each varFile In .SelectedItems
    
28. Me.FileList.AddItem varFile
    
29. Next
    
30. Else
    
31. MsgBox "You clicked Cancel in the file dialog box."
    
32. End If
    
33. End With

复制代码

游客，如果您要查看本帖隐藏内容请回复

JosephJostar

学习一下

NGQ208208

谢谢分享

ardu95

学习了，谢谢分享。

wgh3g

实用

六月雪

哦哦哦哦哦哦哦哦哦哦

sxgaobo

学习学习！！！

Superleistung

学习一下

xie62

谢谢分享

seanone

有道理，好东西支持一下

alonet

看看