主题：批量保存照片

甜老师一开始想过用身份证号因为一身份证号太长二是再搜集初期客户资料时不一定有客户的身份证号的第三就是用身份证号并不知道客户是谁所以没用身份证号

必须确定唯一才能匹配。姓名+身份证号，可以基本区别唯一。

 

对于不唯一的情况，看24楼，手动删除。

这样命名照片名就太长了有好几千张照片呢！

 

用你的方法啊，姓名+身份证后3位。

老师保存是是不是还得同时判断两列呀？如果初期没有客户身份证号怎么处理呢？

 

肯定要判断两列。

 

看24楼，根据姓名列判断，重名的就把所有赋值过去。

那个是24楼呀我这怎么不显示楼层呢？

 

把所有重名的照片都存入，之后手工删除不需要的。

 

老师如果我命名前缀由客户姓名和身份证号后四位组成，该怎么实现如果身份证号是空就执行现在的语句如果不是空切有效就执行将图片批量保存到照片名称的前缀与客户姓名和身份证号后四位完全相同的位置呢？如果不匹配就不保存该图片

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")
    For Each dr As DataRow In DataTables("表A").Select("姓名 is not null")
        Dim str As String = dr("姓名")
        If dr.isnull("身份证号") = False Then
            str = str & right(dr("身份证号"),4)
        End If
        For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
            Dim name As String = FileSys.GetName(file)
           
            If name.Contains(str) Then
                FileSys.CopyFile(file, ProjectPath & "图片/" & name, True)
                If dr.IsNull("图片")
                    dr("图片") = name
                Else
                    dr("图片") &= vbcrlf & name
                End If
            End If
        Next
    Next
    DataTables("表A").datacols(“图片").DefaultFolder  = ProjectPath & "图片/"
End If