主题：窗口代码问题

请教老师：

 想修改它的存放路径？

 

http://www.foxtable.com/help/topics/2043.htm

 

不是修改路径，图片已存在D:\REPORT,只想通过按钮把图片批量导入该列（图片文件名与表姓名列同）。

或者通过DATACOLAHNANGED 判断如果D:\REPORTZHONG存在与姓名列相同的JPG文件,就导入图片列。

For Each f As String In FileSys.GetFiles("d:\")
    Dim ifo As new FileInfo(f)
    Dim name As String = ifo.name.Replace(ifo.Extension, "")
    Dim fdr As DataRow = DataTables("表A").Find("第一列 = '" & name & "'")
    If fdr IsNot Nothing Then
        fdr("第二列") = ifo.Name
        FileSys.CopyFile(f, "d:\test\" & ifo.Name)
    End If
Next

谢谢！