以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助 TextBoX 控件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102014)
--  作者：jackyfashion
--  发布时间：2017/6/12 0:20:00
--  求助 TextBoX 控件
老师:
您好!
 我窗口中有个TextBox,控件,单击控件,打开EXE文件,然后复制文件路径、文件名及扩展名到TextBox,请老师指点!
代码事下:
Dim dlg As New OpenFileDialog
dlg.Filter= "CAD|*.*"
If dlg.ShowDialog = DialogResult.OK Then
    output.Show("文件路径:" & dlg.Path)
    Output.Show("扩展名:" & dlg.Extension)
End If


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

谢谢!
--  作者：notebook
--  发布时间：2017/6/12 0:50:00
--  
dlg.Path 换成 dlg.FileName
dlg.Extension 改用 FileInfo 获取
--  作者：有点蓝
--  发布时间：2017/6/12 8:50:00
--  
参考：http://www.foxtable.com/webhelp/scr/0331.htm

Dim dlg As New OpenFileDialog
dlg.Filter= "CAD|*.*"
If dlg.ShowDialog = DialogResult.OK Then
    output.Show("文件路径:" & dlg.FileName)
    Output.Show("扩展名:" & FileSys.GetName(dlg.FileName).Split(".")(1))
End If
--  作者：jackyfashion
--  发布时间：2017/6/12 21:33:00
--  
谢谢老师!!!
--  作者：jackyfashion
--  发布时间：2017/6/12 22:01:00
--  
谢谢老师!!!
--  作者：jackyfashion
--  发布时间：2017/6/12 22:03:00
--  
谢谢!!!