主题：[求助]关于文件复制的一个问题

感谢rjh4078 提供的案例和代码，省掉了我不少事。帮优化了一下代码，以便复制文件时逐条提示：

For Each r As Row In Tables("表A")
   
    If FileSys.FileExists(r("文件位置"))  Then
        Dim Multi As String = r("文件位置")
        Dim Values() As String
        Values = Multi.split("\")
        Dim Index=Values.Length - 1
       
       
        Dim dr As DataRow=DataTables("表B").find("id='" & r("id") &  "'")
        If dr Is Nothing Then
            Dim rr As Row = Tables("表B").addnew
            rr("id")= r("id")
            FileSys.CopyFile(multi, ProjectPath & "W2\" & Values(Index),True)
            rr("文件位置")=ProjectPath & "W2\" & Values(Index)
        End If
    Else
       
        '        MessageBox.SHOW("没有",r("文件位置"),"文件" )
        MessageBox.Show("你选择的文件:" & r("文件位置") & "不存在或为空","提示")
    End If
Next

DataTables.save