Dim dlg As New FolderBrowserDialog
Dim str As String
If dlg.ShowDialog = DialogResult.Ok Then
str = dlg.SelectedPath
For Each dir As String In FileSys.GetFiles(str) ’文件名称 张学友.jpg
Dim a As Integer = dir.LastIndexOf("\")
Dim b As Integer = dir.LastIndexOf(".")
Dim strfind As String = dir.SubString(a+1,b-a-1)
Dim dr As DataRow = DataTables("fstbfc_number").Find("empname = '" & strfind & "'")
If dr IsNot Nothing Then
FileSys.CopyFile (dir, "\\192.168.40.100\e\图片服务器\员工照片\" & dr("empnum") & strfind & ".jpg" , True) ‘更改后 文件名称 为 1000张学友.jpg
dr("photo") = dr("empnum") & strfind & ".jpg" '列属性里面设置了 存储位置 为 ："\\192.168.40.100\e\图片服务器\员工照片\"
End If
Next
End If
图片看不到 路径 查过没问题的
手动添加就没问题
[此贴子已经被作者于2016/5/19 15:22:21编辑过]
加好友 
发短信
Post By：2016/5/19 15:21:00 [只看该作者]
