Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于存档与提取文件的请教


  共有1855人关注过本帖树形打印复制链接

主题：关于存档与提取文件的请教
帅哥哟，离线，有人找我吗？
douglas738888
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00 		关于存档与提取文件的请教  发帖心情 Post By：2016/1/13 10:56:00 [只看该作者]

老师，有这样一个问题进行请教

例：表A有一列名为“存招标文件”设置为多文件属性通过文件管理器把购买的招标文件（Word文件)存储在Attachments中名称为“招标文件”的文件夹中，其他人员从其他窗口要调阅文件夹中的某个招标文件怎样实现。就相当于我们使用电脑时左边窗口是目录树文件夹，点击我的电脑文件夹，右边面板区域显示文件夹内的全部文件标题，根据所选文件标题打开文件阅览。

这个问题，文件管理器好像不能实现；做目录树的话，如何实现选择的文件在Word中打开文件。

不知还有其他什么方法来实现如上问题。

谢谢！！！！
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/1/13 11:50:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
douglas738888
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00 		  发帖心情 Post By：2016/1/13 12:41:00 [只看该作者]

老师，用以下代码无法把一些WORD文件显示出来，有的word文档类型是“microsoft word ",有的是”microsoft office word"，后缀分别是.doc和.docx
所用版本是2010OFFICE的，把*.doc，改成*.docx也不能显示

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog 
dlg.Filter= "Word文件|*.doc" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    MessageBox.Show("你选择的是：" & dlg.FileName,"提示") '提示用户选择的文件
End If
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/1/13 14:10:00 [只看该作者]

dlg.Filter= "Word文件|*.doc;*.docx" '设置筛选器

仔细看帮助的Filter的说明
 回到顶部
帅哥哟，离线，有人找我吗？
douglas738888
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00 		  发帖心情 Post By：2016/1/13 16:29:00 [只看该作者]

老师再帮我看看，下面代码是在窗口设置目录树后，想通过点击目录树中的DOC文件在WebBrowser中进行显示，目录树设置没有问题，但是无法在WebBrowser中显示所点击的文件。是否是黄色部分有问题，还是其他代码有问题？  目录树是通过后台数据生成的。

For Each dir As String In FileSys.GetDirectories(ProjectPath & "Attachments\公共文件\招标文件") 
    For Each File As String In FileSys.Getfiles(dir)     
        Dim f As String =file
        Dim ext As String 
        ext = f.SubString(f.LastIndexof(".") ) '获得文件后缀
      Select Case ext
         Case ".doc",".docx"
            Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")   
            brw.Address = ProjectPath & "Attachments\公共文件\招标文件\" & e.Node.Name & "\" & e.Node.Text & ext
     End Select
   Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/1/13 16:40:00 [只看该作者]

msgbox(ProjectPath & "Attachments\公共文件\招标文件\" & e.Node.Name & "\" & e.Node.Text & ext)看路径对不对咯
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 4 次数据查询