主题：[求助]插入多种类型文件，并更改文件名称

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