主题：[求助]

 要具体你的问题。

1、一个文件夹的所有照片导入？

2、根据什么图片信息的文件名导入么？

3、上传一个小例子说明问题

Dim dlg As new  FolderBrowserDialog

If dlg.ShowDialog = DialogResult.Ok Then
    For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
        Dim finfo As new FileInfo(file)
        Dim fdr As DataRow = DataTables("表A").Find("第一列 = '" & finfo.Name.replace(finfo.Extension, "") & "'")
        If fdr Is Nothing Then
            fdr = DataTables("表A").AddNew
            fdr("第一列") = finfo.Name.replace(finfo.Extension, "")
        End If
        fdr("第三列") = finfo.Name
        FileSys.CopyFile(file, ProjectPath & "Attachments/" & finfo.name)
    Next
End If