以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 文件管理器显示问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50765) |
|||||
-- 作者:yifan3429 -- 发布时间:2014/5/13 10:31:00 -- 文件管理器显示问题
这种显示路径的方式固然比较好 但是路径长的时候 我就不知道这一行文件名称是什么了
有么有办法将路径倒着显示 或是只显示文件名路径不显示 可以通过右键属性来选择 或是像图片软件一样 显示文件所在的位置等 扩展功能呢 此主题相关图片如下:qq截图20140513103120.png [此贴子已经被作者于2014-5-13 10:31:48编辑过]
|
|||||
-- 作者:Bin -- 发布时间:2014/5/13 10:32:00 -- 你可以把根存放目录设置为这个文件夹,这样这里就只显示文件名了. |
|||||
-- 作者:yifan3429 -- 发布时间:2014/5/13 10:35:00 -- 以下是引用Bin在2014-5-13 10:32:00的发言:
你可以把根存放目录设置为这个文件夹,这样这里就只显示文件名了. |
|||||
-- 作者:Bin -- 发布时间:2014/5/13 10:36:00 -- 那没办法,窗口拉宽一点吧 |
|||||
-- 作者:Bin -- 发布时间:2014/5/13 10:37:00 -- 或者你把目录这一段存到另外一个列,打开的时候再取值拼接. |
|||||
-- 作者:yifan3429 -- 发布时间:2014/5/13 10:38:00 -- 以下是引用Bin在2014-5-13 10:36:00的发言:
那没办法,窗口拉宽一点吧 貌似拉不动奥
|
|||||
-- 作者:Bin -- 发布时间:2014/5/13 10:44:00 -- 用5楼的方法 |
|||||
-- 作者:yifan3429 -- 发布时间:2014/5/14 18:50:00 --
Dim dr As DataRow
= e.DataRow If
dr.IsNull("文件类别") OrElse dr.IsNull("资料名称") Then msgbox("文件类别,资料名称列不能为空") e.cancel = True Else Select Case e.DataCol.Name Case "发布源文件" e.SubFolder = dr("文档归类")
& "\\" & dr("文件类别") & "\\" &
dr("资料名称") & "\\" & "源文件" &
format(dr("日期").Today,"yyyy-MM-dd") & "更新版" Case "发布签字版" e.SubFolder = dr("文档归类")
& "\\" & dr("文件类别") & "\\" &
dr("资料名称") & "\\" & "签字文件" &
format(dr("日期").Today,"yyyy-MM-dd") & "更新版" Case "签收记录" e.SubFolder = dr("文档归类")
& "\\" & dr("文件类别") & "\\" &
dr("资料名称") & "\\" & "签收记录" &
format(dr("日期").Today,"yyyy-MM-dd") & "更新版" Case "培训记录" e.SubFolder = dr("文档归类")
& "\\" & dr("文件类别") & "\\" &
dr("资料名称") & "\\" & "培训记录" &
format(dr("日期").Today,"yyyy-MM-dd") & "更新版" End Select End If 我写入是是这样的 要怎样做拼接 读取的速度有影响吗 我做了个 [此贴子已经被作者于2014-5-14 19:01:58编辑过]
|
|||||
-- 作者:有点甜 -- 发布时间:2014/5/14 19:04:00 -- 意思是这样。
你多加一列,叫文件附加列。在这一列里面显示短的文件名。
对这一列进行操作的时候,比如 打开,就在 BeforeOpenFile 事件写入代码,打开对应的文件。
如果不会做,就上传一个例子吧 |
|||||
-- 作者:有点甜 -- 发布时间:2014/5/14 20:23:00 -- 如下,不建议这样做,太麻烦了。得不偿失
|