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

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

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