主题：拍照命名当前行的“客户”列+“日期”列+当前行的第“00n”张照片？

Dim c As new camera

If e.Col.Name = "拍照" Then

    e.Cancel = True '取消默认动作

    c.capture() '开始照相

    If c.image IsNot Nothing Then '照相成功

        c.Save("D:\暂存区\001\abc.jpg") '保存文件

    End If

End If

这样写的命名，却是只能覆盖上一次的照片路径，求按命名规则来存放照片：

拍照命名规则：