以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  图片列 通过代码添加 看不到图片 请教代码哪里错了  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=85186)
--  作者：ljh29206
--  发布时间：2016/5/19 15:21:00
--  图片列 通过代码添加 看不到图片 请教代码哪里错了
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编辑过]
--  作者：大红袍
--  发布时间：2016/5/19 16:15:00
--  

1、存放位置一定要设置正确，你手动添加看在哪个文件夹增加了文件；

 

2、弹出 msgbox("\\\\192.168.40.100\\e\\图片服务器\\员工照片\\" & dr("empnum") & strfind & ".jpg") 的值看一下。

 

3、只要存放目录和文件名一致，不可能看不到图片。