以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何得到上级目录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=168965)

--  作者:南望
--  发布时间:2021/5/28 16:59:00
--  如何得到上级目录

下面是按钮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


[此贴子已经被作者于2021/5/28 17:05:28编辑过]

--  作者:有点蓝
--  发布时间:2021/5/28 17:06:00
--  
参考:http://www.foxtable.com/webhelp/topics/1271.htm