以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  对话框能否实现所选多个文件同时选取功能  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=5253)
--  作者：exonjee
--  发布时间：2009/12/3 17:12:00
--  对话框能否实现所选多个文件同时选取功能

 


图片点击可在新窗口打开查看此主题相关图片如下：pic.jpg
图片点击可在新窗口打开查看
--  作者：狐狸爸爸
--  发布时间：2009/12/3 17:50:00
--  

Dim dlg As New OpenFileDialog \'定一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" \'设置筛选器
dlg.Multiselect  = True
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    For Each f As String in dlg.FileNames
         Output.show(f)
    Next
End If