主题：批量保存照片

For Each dr As DataRow In DataTables("表A").Select("第一列 is not null")
    For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
        Dim name As String = FileSys.GetName(file)
        If name.Contains(dr("第一列")) Then
            FileSys.CopyFile(file, ProjectPath & "图片/" & name, True)
            dr("第二列") = name
        End If
    Next
Next
DataTables("表A").datacols("第二列").DefaultFolder  = ProjectPath & "图片/"