以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  复制相应行的图片到 route2  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75447)

--  作者：jinzhengbe --  发布时间：2015/10/8 20:34:00 --  复制相应行的图片到 route2 For Each r As DataRow In DataTables("newtrj").Select("id>1")   \'从数据表中提取数据     Dim fn As String = ""     fn = r("cn_name")     If fn <> "" And filesys.FileExists("F:\\as\\" & fn & ".jpeg") = True Then         Dim route As String = "f:\\as\\" & fn & ".jpeg" \'原始照片存放路径         Dim route2 As String ="f:\\qrcord\\" & fn & ".jpEg"        如果符合上面的条件     复制相应行的图片到 route2     End If Next MessageBox.Show("全部添加成功!", "提示") 请问红色的地方该怎么写啊？

--  作者：大红袍 --  发布时间：2015/10/8 20:36:00 --   FileSys.CopyFile(route, route1, true)

--  作者：jinzhengbe --  发布时间：2015/10/9 0:47:00 --