以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]插入多种类型文件，并更改文件名称  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115834)
--  作者：djm2003
--  发布时间：2018/3/15 14:16:00
--  [求助]插入多种类型文件，并更改文件名称

在备注列中插入插入多种类型文件，如doc，pdf文件，并更改文件名称，怎样修改

             e.FileName = dr("文件名") & ".doc"
--  作者：有点甜
--  发布时间：2018/3/15 14:36:00
--  

Dim fl As String = e.FileName
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String  = fl.SubString(idx)
e.FileName =  dr("文件名") & ext