VB.NET用OpenFileDialog打开了多个文件后如何获取各文件的文件名？
在VB6中用文件对话框(OpenFileDialog)打开多个文件后各文件的文件名之间用分号（；）隔开，可我在vb.net中用MessageBox获取了一下（选了多个）文...
在VB6中用文件对话框(OpenFileDialog)打开多个文件后各文件的文件名之间用分号（；）隔开，可我在vb.net中用MessageBox获取了一下（选了多个）文件名，发现弹出的信息是我最后选择的文件的文件名，也就是FileName=最后选择的文件的文件名，这样我就不能用VB6的来思路Split——赋值到数组——调用了，请问该如何获取各文件的文件名？
VB6中的思路：
Dim Fn As String,n() As String,n1() As String,n2() As String,i As Integer
CommonDialog.ShowOpen
Fn=CommonDialog.FileName
n=Split(Fn,";") ‘分割各个文件的完整路径
For i=0 to n.Ubound-1
n1=Split(n(i),"\") ’用\分割完整路径
n2=Split(n1(n1.Ubound),".") '用.分割n1的最后一块（即xxxxx.xxx的那一部分）
MsgBox n2(0),vbInformation,"文件名" ‘获得xxxxx并写出来
Next
（现在在用VB.NET，VB6很久没用了，上面的代码只在问题补充里写的，可能有些的不对的地方。。。） 展开
VB6中的思路：
Dim Fn As String,n() As String,n1() As String,n2() As String,i As Integer
CommonDialog.ShowOpen
Fn=CommonDialog.FileName
n=Split(Fn,";") ‘分割各个文件的完整路径
For i=0 to n.Ubound-1
n1=Split(n(i),"\") ’用\分割完整路径
n2=Split(n1(n1.Ubound),".") '用.分割n1的最后一块（即xxxxx.xxx的那一部分）
MsgBox n2(0),vbInformation,"文件名" ‘获得xxxxx并写出来
Next
（现在在用VB.NET，VB6很久没用了，上面的代码只在问题补充里写的，可能有些的不对的地方。。。） 展开
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
