以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [原创]做了一个简单的批量导入照片的代码，请大家抛砖。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69360)
--  作者：332595
--  发布时间：2015/6/3 18:00:00
--  [原创]做了一个简单的批量导入照片的代码，请大家抛砖。

其实一直在慢慢完善我的小程序，今天突然发觉人员信息导入之后有好几百人员的照片需要一次导入过来，一直在想有什么好的办法，琢磨了下午写了几句代码，希望大家指点，如果有需要的请拿去用。

 

按钮代码:

 

If MessageBox.Show("批量导入照片一般用于人员信息导入之后操作,如果确定已经完成基础数据导入,可以使用本功能" & vbcrlf & "系统默认会在程序的Attachments文件夹内搜索文件!!","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Warning) = dialogresult.ok Then
    If CurrentTable.Rows.Count > 0 Then
        Dim lj As String = ProjectPath
        For Each dr As Row In CurrentTable.Rows
            Dim str1 As String =dr("人员编码") & "-" & dr("姓名") & ".jpg"
            If FileSys.FileExists("" & lj & "Attachments\\" & str1 & "")  = True Then
                dr("照片") = dr("人员编码") & "-" & dr("姓名") & ".jpg"
            Else
                MessageBox.Show("未找到:" & lj & "Attachments\\" & str1)
                dr("照片") = Nothing
            End If
        Next
    Else
        MessageBox.Show("当前表没有数据,无法执行该操作!","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
    End If
End If
--  作者：大红袍
--  发布时间：2015/6/3 19:13:00
--  
 嗯嗯，不错。
--  作者：monvzhilei
--  发布时间：2015/6/3 19:47:00
--  
这个好 。
--  作者：lisheng7177
--  发布时间：2015/9/29 8:56:00
--  

虽然本人对代码还没完全理解，但这个真是很好！就是想如果我把照片从其它文件夹导入，而不是系统默认在程序的Attachments文件夹内，比如：D:\\360云盘\\Photo,寻么这个代码应该如何改？

本人愚钝，改了N次都没成功，请高手指点，谢谢！！！！！！
--  作者：大红袍
--  发布时间：2015/9/29 9:12:00
--  

回复四楼

 

 


If MessageBox.Show("批量导入照片一般用于人员信息导入之后操作,如果确定已经完成基础数据导入,可以使用本功能" & vbcrlf & "系统默认会在程序的Attachments文件夹内搜索文件!!","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Warning) = dialogresult.ok Then
    If CurrentTable.Rows.Count > 0 Then
        Dim lj As String = "D:\\360云盘\\Photo\\"
        For Each dr As Row In Tables("表A").Rows
            Dim str1 As String =dr("人员编码") & "-" & dr("姓名") & ".jpg"
            If FileSys.FileExists(lj & str1)  = True Then
                dr("照片") = dr("人员编码") & "-" & dr("姓名") & ".jpg"
            Else
                MessageBox.Show("未找到:" & lj & str1)
                dr("照片") = Nothing
            End If
        Next
    Else
        MessageBox.Show("当前表没有数据,无法执行该操作!","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
    End If
End If

 

 
--  作者：lisheng7177
--  发布时间：2015/9/29 9:42:00
--  

谢谢版主！！！！！！现在可以了！这样的改动我还真没这个水平，得有相当的代码编写能力才行！