参考http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=84351
If FileSys.DirectoryExists("d:\照片FOX") Then '如果目录C:\MyFolder存在
For Each f As String In FileSys.GetFiles("d:\照片FOX")
Dim ifo As new FileInfo(f)
Dim name As String = ifo.name.Replace(ifo.Extension, "")
Dim fdr As DataRow = DataTables("职工一览表").Find("姓名 = '" & name & "'")
If fdr IsNot Nothing Then
fdr("照片") ="D:\照片FOX\" &ifo.Name
Dim bmp As new bitmap(getImage(f), 100, 100 * (img.height / img.width))
bmp.save("d:\照片FOX" & ifo.Name)
bmp.Dispose
End If
Next
'FileSys.DeleteDirectory("d:\rsgl",2,3) '则删除之
'DataTables("职工一览表").DataCols("照片").DefaultFolder = "d:\照片fox"
Else
MessageBox.Show("请将全部职工个人照片用对应姓名命名(格式.JPG,存放至D:\照片FOX 目录中,然后点击一键录入")
End If
加好友 
发短信
Post By：2016/6/25 15:16:00 [显示全部帖子]
