- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 文件存放按照列名称重新命名 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56131)
-- 发布时间：2014/8/29 21:53:00
-- 文件存放按照列名称重新命名
我要将qq截图 {QQ截图20140829214853.jpg} 文件导入到项目里面 我希望导入后的文件名称 [AAAA.JPG] aaaa是我的编号列的内容 怎样做呢 请教老师 并附上实例
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.foxdb |
此主题相关图片如下：qq截图20140829214853.png
[此贴子已经被作者于2014-8-29 21:55:48编辑过]
-- 发布时间：2014/8/29 22:03:00
--
参考：
http://www.foxtable.com/help/topics/0340.htm
-- 发布时间：2014/8/30 8:20:00
--
这个不行 需要事先知道文件名 而且还有后面的文件后缀名也要指定 我需要的是任何格式的文件 任何名称在存放时自己自动修改文件名 后缀不变
有下面的代码能修改吗？ 文件名 重命名为 dr("构件名称")
Dim dr As DataRow
= e.DataRow
If
dr.IsNull("风格系列") OrElse dr.IsNull("首发项目") OrElse
dr.IsNull("构件名称") Then
msgbox("系列,首发.名称,编号列不能为空")
e.cancel = True
Else
Select Case e.DataCol.Name
Case "照片_实物"
e.SubFolder = dr("文件分档")
& "\\" & dr("风格系列") & "\\" &
dr("构件名称") & "\\1.图片文件"
-- 发布时间：2014/8/30 8:55:00
--
BeforeAttachFile
e.filename=e.datarow("编号") & ".JPG"
-- 发布时间：2014/8/30 9:34:00
--
Dim dr As DataRow = e.DataRow
If dr.IsNull("类别_五类") OrElse dr.IsNull("类别_大类") Then
MessageBox.Show("产品名称,类别 类别_大类 都不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
Select Case e.DataCol.Name
Case "产品效果图"
e.SubFolder = format(dr("日期").Today,"yyyy-MM") & "产品库" & "\\" & dr("类别_大类") & "\\" & dr("类别_五类") & "\\" & "B+产品单品图片"
Case "产品空间","产品情景"
e.SubFolder = format(dr("日期").Today,"yyyy-MM") & "产品库" &"\\" & dr("类别_大类") & "\\" & dr("类别_五类") & "\\" & "A+产品空间图片"
End Select
End If
就这句代码 我希望文件存入是根据（编号）列重命名文件 原来的存储路劲不变 但是文件后缀有多种 有可能是 DWG ; MAX; JPG ;PNG;tif；PDF等多种格式该如何修改 上边的代码 融入 e.filename=e.datarow("编号") & ".JPG"的指令呢
[此贴子已经被作者于2014-8-30 9:34:39编辑过]
-- 发布时间：2014/8/30 9:55:00
--
加在最下面
Dim s As String = "abc.jpg"
Dim Index As Integer = s.LastIndexOf(".")
Dim hz As String = s.SubString(Index,s.length-Index)
e.filename=e.datarow("编号") & hz
-- 发布时间：2014/9/4 8:39:00
--
Dim s As String = "abc.JPG"
Dim Index As Integer = s.LastIndexOf(".")
Dim hz As String = s.SubString(Index,s.length-Index)
e.filename=e.DataRow("产品编号") & e.DataRow("产品名称")& hz
将文件全部变成了jpg格式 不能打开哦 我的格式有很多的不同的后缀 老师看下怎么解决 谢谢
此主题相关图片如下：qq截图20140904083621.png
此主题相关图片如下：qq截图20140904083621.png-- 发布时间：2014/9/4 8:51:00
--
怎么生搬硬套呢
Dim s As String = "abc.jpg" 改为 Dim s As String = e.filename
你都写死为 "abc.jpg" 了当然每次获取的后缀名都是JPG了.
-- 发布时间：2014/9/4 8:55:00
--
