文件存放按照列名称重新命名 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文件存放按照列名称重新命名

共有2956人关注过本帖树形打印复制链接主题：文件存放按照列名称重新命名

yifan3429

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2457 积分：22673 威望：0 精华：0 注册：2011/3/29 17:14:00

文件存放按照列名称重新命名 发帖心情

Post By：2014/8/29 21:53:00 [只看该作者]

我要将qq截图 {QQ截图20140829214853.jpg} 文件导入到项目里面我希望导入后的文件名称 [AAAA.JPG] aaaa是我的编号列的内容怎样做呢请教老师并附上实例

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.foxdb

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

[此贴子已经被作者于2014-8-29 21:55:48编辑过]

land089

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：451 积分：3045 威望：0 精华：1 注册：2012/7/17 22:08:00

Post By：2014/8/29 22:03:00 [只看该作者]

参考：

http://www.foxtable.com/help/topics/0340.htm

yifan3429

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2457 积分：22673 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：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.图片文件"

Bin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/8/30 8:55:00 [只看该作者]

BeforeAttachFile

e.filename=e.datarow("编号") & ".JPG"

yifan3429

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2457 积分：22673 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：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编辑过]

Bin

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：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

yifan3429

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2457 积分：22673 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：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

Bin

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/9/4 8:51:00 [只看该作者]

怎么生搬硬套呢

Dim s As String = "abc.jpg" 改为 Dim s As String = e.filename

你都写死为 "abc.jpg" 了当然每次获取的后缀名都是JPG了.

yifan3429

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2457 积分：22673 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2014/9/4 8:55:00 [只看该作者]

下一主题 >> << 上一主题

主题：文件存放按照列名称重新命名