当然不能~！ Me.OpenFileDialog1. FileNames这个是多选文件时，一个文件数组， 不是单个文件，单个文件用Me. OpenFileDialog1.FileName 而Str(Me.OpenFileDialog1. FileNames) 又是什么意思呢~？把数组转化成字符串~？~~？~？ strFileDirectary = Me.OpenFileDialog1.FileName 这样strFileDirectary 得到的是完整的文件路径，不是文件夹 我搞不懂你到底要获得文件路径还是文件所在的文件夹~~？~？
创新互联建站专注于吉木萨尔企业网站建设,自适应网站建设,成都做商城网站。吉木萨尔网站建设公司,为吉木萨尔等地区提供建站服务。全流程按需网站策划，专业设计，全程项目跟踪，创新互联建站专业和态度为您提供的服务
希望采纳
Dim my_path() As String = System.IO.Directory.GetFiles("d:\", "文件名", IO.SearchOption.AllDirectories)
因为有可能在多个地方，所以进行了全盘搜索，歌曲的所有地址路径在数组my_path中
步骤如下：
窗体上添加2个列表框，一个按钮：
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDir As String = "C:\123"
'搜索并显示子文件夹
ListBox1.Items.Clear()
For Each MySubDir As String In System.IO.Directory.GetDirectories(MyDir)
ListBox1.Items.Add(MySubDir)
Next
'搜索并显示文件
ListBox2.Items.Clear()
For Each MyFile As String In System.IO.Directory.GetFiles(MyDir)
ListBox2.Items.Add(MyFile)
Next
End Sub
End Class
见上图，用鼠标按照上述三个步骤先后次序，一一单击进行选择和设置，“生成输出路径”。
那么，在你的程序代码里使用：
MsgBox(Application.StartupPath)
显示的就是，你的当前默认的相对路径。
也可以按照自己的需要重新设置该路径。
思路：
1，使用ListBox1控件来存放搜索到的文件名，然后ListBox1.SelectedItem就可以返回选中项的文本；
2，利用获得的选中项文本（即文件与路径），使用打开文本文件的方法，读取内容显示在文本框里。
