支持多选的文件对话框

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

复制代码

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

Victor_Duane

我下了看看，呵呵

Victor_Duane

难得坐了个沙发也，真不错，ANDYMARK真是太好了，哈哈哈

goto2008

学习。。。。好奇怪的功能。。

Victor_Duane

不奇怪，很实用的一个功能，嘿嘿，

5988143

謝謝分享!

feigao186

应该学习看看下载了呀

feigao186

学习没发现的好功能呀

tmtony

很好的代码!!

t小宝

好东西,支持......
不知Access2000能不能用?