以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]显示多个文件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65853)
--  作者：liujywwy
--  发布时间：2015/3/24 14:46:00
--  [求助]显示多个文件
Dim dlg As new OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    msgbox("你选择了" & dlg.FileNames.length & "个文件, 分别是:" & vbcrlf  & dlg.FileName)
End If

这样显示出的是第一个dlg.filename。我想把选择的多个文件都显示出来（分行显示）。
觉得简单，但尝试了好几次都不正确，请帮忙看看怎么改一下。谢谢。
--  作者：狐狸爸爸
--  发布时间：2015/3/24 14:57:00
--  

呵呵，将OpenFileDialog的帮助全部看完，你就知道了：

 

http://www.foxtable.com/help/topics/0328.htm

 
--  作者：ybil
--  发布时间：2015/3/24 14:58:00
--  

示例二

如果将MultiSelect属性设置为True，可以选择多个文件，通过FileNames属性返回选择的多个文件，例如：

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    OutPut.Show("你选择了" & dlg.FileNames.Length & "个文件, 分别是:")
    For Each fl As String In dlg.FileNames
        Output.Show(fl)
    Next
End If
--  作者：liujywwy
--  发布时间：2015/3/24 15:06:00
--  
我的意思是多个文件显示到一个弹出框，而不是每一个文件都弹出一个框。

图片点击可在新窗口打开查看此主题相关图片如下：多行显示.png
图片点击可在新窗口打开查看
--  作者：lala
--  发布时间：2015/3/24 15:09:00
--  
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
Dim s As String
If dlg.ShowDialog = DialogResult.OK Then
    s = "你选择了" & dlg.FileNames.Length & "个文件, 分别是:"
    For Each fl As String In dlg.FileNames
        s = s & vbcrlf & fl
    Next
    MessageBox.Show(s)
End If