以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教照片选择代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97322)
--  作者：HJG_HB950207
--  发布时间：2017/3/9 21:11:00
--  请教照片选择代码
D:\\FOX下 有很多登记照（文件名为姓名）
表A 如下字段
   姓名  
    ：
    ：
    ：


   根据表A中的姓名 ，选择D:\\FOX 中的相对应登记照，全部复制到：IMAGES目录中（不复制表A中无姓名的照片）
--  作者：有点色
--  发布时间：2017/3/9 21:29:00
--  
Dim dt As DataTable = DataTables("表A")
For Each dr As DataRow In dt.datarows
    If FileSys.FileExists("d:\\fox\\" & dr("第一列") & ".jpg") Then
        FileSys.CopyFile("d:\\fox\\" & dr("第一列") & ".jpg",  ProjectPath & "Images\\" & dr("第一列") & ".jpg", True)
    End If
Next
--  作者：方丈
--  发布时间：2017/3/9 22:39:00
--  
记号