主题：文件管理器显示问题

此主题相关图片如下：qq截图20140513102528.png

 

这种显示路径的方式固然比较好 但是路径长的时候  我就不知道这一行文件名称是什么了

 

有么有办法将路径倒着显示   或是只显示文件名路径不显示     可以通过右键属性来选择 或是像图片软件一样  显示文件所在的位置等 扩展功能呢

此主题相关图片如下：qq截图20140513103120.png

你可以把根存放目录设置为这个文件夹,这样这里就只显示文件名了.

你好老师  我是动态的  不确定根

那没办法,窗口拉宽一点吧

或者你把目录这一段存到另外一个列,打开的时候再取值拼接.

貌似拉不动奥

 

 

用5楼的方法

  

或者你把目录这一段存到另外一个列,打开的时候再取值拼接.

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

我写入是是这样的  要怎样做拼接   读取的速度有影响吗    我做了个

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.foxdb

 意思是这样。

 

 你多加一列，叫文件附加列。在这一列里面显示短的文件名。

 

 对这一列进行操作的时候，比如 打开，就在 BeforeOpenFile 事件写入代码，打开对应的文件。

 

 如果不会做，就上传一个例子吧

 如下，不建议这样做，太麻烦了。得不偿失

     

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:短文件名图片列示例.foxdb