主题：文件名动态命名并自动重文件名

 你判断文件是否存在，如果存在，就加上当前的时间

If FileSys.FileExists(e.SourceFolder & format(dr("日期").Today,"yyyy") & "产品库" & "\" & dr("家具风格") &  "\" & dr("产品名称") & "\" & "A 效果图片") Then
    e.SubFolder = format(dr("日期").Today,"yyyy") & "产品库" & "\" & dr("家具风格") &  "\" & dr("产品名称") & "\" & "A 效果图片" & Format(date.Now, "HHmmss")

Else

    e.SubFolder = format(dr("日期").Today,"yyyy") & "产品库" & "\" & dr("家具风格") &  "\" & dr("产品名称") & "\" & "A 效果图片"
End If

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

Dim dr As DataRow = e.DataRow
If dr.IsNull("第二列") Then
    msgbox("第二列不能为空")
    e.cancel = True
Else
   
    Select Case e.DataCol.Name
        Case "第一列"
            e.SubFolder = dr("第二列") & "\" & format(dr("日期").Today,"yyyy") & "\" & "核心宣传"
    End Select
End If

Dim s As String = e.filename
Dim Index As Integer = s.LastIndexOf(".")
Dim hz As String = s.SubString(Index,s.length-Index)
e.filename = e.DataRow("第二列") & "核心宣传" & hz
If e.DataRow(e.DataCol.name).Contains(e.FileName) Then
    e.FileName = e.DataRow("第二列") & "核心宣传" & Format(Date.Now, "yyyyMMddHHmmss") & hz
End If
If e.DataRow.Lines(e.DataCol.name).Count > 0 Then
    Dim fn As String = e.DataRow.Lines(e.DataCol.name)(e.DataRow.Lines(e.DataCol.name).Count-1)
    Dim fni As Integer=fn.LastIndexOf("(")
    If fni > -1 Then
        Dim fn2 As String =fn.SubString(fni,fn.Length-fni)
        Dim fni2 As Integer= fn2.LastIndexOf(".")
    End If
End If

Dim dr As DataRow = e.DataRow
If dr.IsNull("第二列") Then
    msgbox("第二列不能为空")
    e.cancel = True
Else
   
    Select Case e.DataCol.Name
        Case "第一列"
            e.SubFolder = dr("第二列") & "\" & format(dr("日期").Today,"yyyy") & "\" & "核心宣传"
    End Select
End If

Dim ss As String = e.filename
Dim Index As Integer = ss.LastIndexOf(".")
Dim hz As String = ss.SubString(Index,ss.length-Index)
e.filename = e.DataRow("第二列") & "核心宣传" & hz
If e.DataRow(e.DataCol.name).Contains(e.FileName) Then
    Dim max As Integer = 0
    For Each s As String In e.DataRow.Lines(e.DataCol.name)
        If s Like "*" & e.DataRow("第二列") & "核心宣传" & "*" Then
            Dim fni1 As Integer=s.LastIndexOf("(")
            If fni1 > -1 Then
                Dim fni2 As Integer = s.LastIndexOf(")")
                fni1 = s.SubString(fni1+1, fni2 - fni1 - 1)
                If fni1 > max Then
                    max = fni1
                End If
            End If
        End If
    Next
    e.filename = e.DataRow("第二列") & "核心宣传" & "(" & (max+1) & ")" & hz
End If