使用OpenFileDialog控件如何得到我选择的路径啊？

[qqyzq]

OpenFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
OpenFileDialog1.FilterIndex = 2
' OpenFileDialog1.RestoreDirectory = True
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
‘这时已打开资源管理对话框，但我选择不同的磁盘时。如何得到我选择的路径，不包括文件名
End If

[AntingZ]

Dim strPath As String = OpenFileDialog1.FileName
strPath = strPath.Substring(0, strPath.LastIndexOf("\") + 1)

[水如烟]

利用IO.FileInfo
Dim FileD As New OpenFileDialog
Dim mFileInfo As IO.FileInfo
Dim mFilePath As String
With FileD.ShowDialog = DialogResult.OK
mFileInfo = New IO.FileInfo(FileD.FileName)
mFilePath = mFileInfo.DirectoryName
End With

[水如烟]

对文件
IO.FileInfo非常好用

[earlsen]

With OpenFileDialog
.InitialDirectory = "C:\"
.Filter = "图片文件(Bitmaps，GIFs，JPEGs）|*.BMP;*.GIF;*.JPG"
End With
If OpenFileDialog.ShowDialog() = DialogResult.OK Then
With PicBox
.Image = Nothing
.Image = Image.FromFile(OpenFileDialog.FileName)
End With
Me.txtfilepath.Text = OpenFD.FileName
End If

[earlsen]

还要加上 Imports System.IO

[Relta]

Dim strPath As String = OpenFileDialog1.FileName
strPath = System.IO.Path.GetDirectoryName(strPath)

[qqyzq]

多谢各位，我找到了另外一个办法
利用控件：FolderBrowserDialog1可以实现

[lay993132001]

買了一杆的實現主法挺好的。

[水如烟]

原来我也是那样写
现在对象的概念有点味道了
所以有对象有属性的话就利用上
读起来清晰明了，心里也舒服些