主题：如何得到上级目录

下面是按钮1的代码，指定某一目录下的文件，现在想写个按钮2,获取按钮1取得这个文件所在的上级目录？

Dim dlg As New OpenFileDialog

dlg.InitialDirectory =e.Form.Controls("TextBox3").value

dlg.Filter= "Excel文件|*.xls;*.xlsx" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    e.Form.Controls("TextBox3").value = dlg.FileName

End If