以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何同时打开多个文件???  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68419)

--  作者:haokan02
--  发布时间:2015/5/17 14:56:00
--  如何同时打开多个文件???
如何同时打开多个文件???
这个是只能打开一个文件
Dim dlg As new openfiledialog
dlg.filter = "excel文件|*.xls|world文件|*.doc|access文件|*.ndb|wenbenwenjian|*.txt"
If dlg.ShowDialog = DialogResult.OK Then
    Dim prc As new Process
    prc.file=dlg.FileName
    prc.start()
End If

--  作者:大红袍
--  发布时间:2015/5/17 14:59:00
--  

---------

[此贴子已经被作者于2015/5/17 15:32:20编辑过]

--  作者:haokan02
--  发布时间:2015/5/17 15:31:00
--  
这种方式,如果你打开3个文件,只是把第一个选中的文件打开三次!
--  作者:大红袍
--  发布时间:2015/5/17 15:32:00
--  
 Dim dlg As new openfiledialog
dlg.filter = "excel文件|*.xls|world文件|*.doc|access文件|*.ndb|wenbenwenjian|*.txt"
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    For Each f As String In dlg.FileNames
        Dim prc As new Process
        prc.file=f
        prc.start()
    Next
End If

--  作者:haokan02
--  发布时间:2015/5/17 15:33:00
--  
For Each f As String In dlg.FileNames
这个语句中 f 的值怎么传递??
谢谢!

--  作者:大红袍
--  发布时间:2015/5/17 15:33:00
--  
 看4楼。
--  作者:haokan02
--  发布时间:2015/5/17 15:37:00
--  
感谢!!