以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何判断WebBrowser中打开文件的文件名和后缀  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117896)
--  作者：ZJZK2018
--  发布时间：2018/4/20 14:49:00
--  如何判断WebBrowser中打开文件的文件名和后缀
如题
--  作者：有点甜
--  发布时间：2018/4/20 15:53:00
--  

你是说这个？e.form.controls("webbrowser1").address的值？

 

具体一点问题。
--  作者：ZJZK2018
--  发布时间：2018/4/20 16:13:00
--  
我在同一个WebBrowser中有可能打开的文件是AAA.doc或bbb.xls或bbb.pdf,如何判断提取正打开的文件的文件名和后缀？
--  作者：有点甜
--  发布时间：2018/4/20 16:17:00
--  

你是如何制定webbrowser的文件路径的？直接判断e.form.controls("webbrowser1").address的值不就行了？

 

msgbox(e.form.controls("webbrowser1").address)
--  作者：ZJZK2018
--  发布时间：2018/4/20 16:40:00
--  
有点甜：

我执行下面代码出现乱码：

Dim wbr1 As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
msgbox(e.form.controls("webbrowser1").address)
wbr1.Address = Nothing


图片点击可在新窗口打开查看此主题相关图片如下：$sep(gva1%wr4zyns$ctq6.png
图片点击可在新窗口打开查看
--  作者：ZJZK2018
--  发布时间：2018/4/20 16:43:00
--  
我需要的是：C:\\aaa.doc
--  作者：有点甜
--  发布时间：2018/4/20 16:48:00
--  
Dim wbr1 As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim s = UrlDecode(e.form.controls("webbrowser1").address)
msgbox(s.replace("file:///", ""))
--  作者：ZJZK2018
--  发布时间：2018/4/20 16:58:00
--  
谢谢甜版