主题：[求助]动态设置文件存储位置，特殊符号

 BeforeAttachFile  表事件
e.SubFolder = dr("产品名称") & "\" & dr("品牌型号")
    e.FileName = dr("产品名称") & "_" & dr("联系人") & dr("联系方式") & "_标准物料_" & dr("创建日期") & ".jpg"

产品名称、品牌型号含特殊符号，报错
1、新建文件夹时，怎么修改上面代码？
2.1增加图片时，产品名称含特殊符号，报错，添加图片失败，上面代码怎么修改？
2.2添加的图片是png格式，上面代码也把图片后缀名改jpg。怎样保留添加图片原后缀名格式？

Dim fl = e.FileName
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String  = fl.SubString(idx)
e.SubFolder = dr("产品名称") & "\" & dr("品牌型号").replace("特殊符号1", "@").replace("特殊符号2", "#")
e.FileName = dr("产品名称") & "_" & dr("联系人") & dr("联系方式") & "_标准物料_" & dr("创建日期") & ext

 如果含有 *号 呢？

参考2楼，看懂，修改。

Dim fl = e.FileName
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String  = fl.SubString(idx)
e.FileName = dr("产品名称").Replace("*","_").Replace("-","_") & "_" & dr("联系人") & dr("创建日期") & dr("创建时间"). Replace(":","_") & ext  

列：创建时间 日期时间格式为Time，上面代码怎么改呢？
报错：
未找到类型Date的公共成员Replace

cstr(dr("创建时间")).Replace(":","_")