主题：图片，上传到ftp

我表A中有一个扩展的图片列，用按钮选择图片直接上传到ftp，上传成功后，怎么直接把路径添加到图片列，省去用管理器添加的过程呢？

Dim ftp1 As new  ftpclient
ftp1.host="*****"
ftp1.Account =  "ftp003"
ftp1.password =  "*****"

Dim dlg As New openFileDialog '定义一个新的SaveFileDialog
dlg.MultiSelect = True
If dlg.showDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    If  ftp1.Upload("dlg.FileName",“\系统更新" , True) = True Then
        Messagebox.show(dlg.FileName & "上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show(dlg.FileName & "上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

 

老师，上面代码执行后提示连接后就退出系统了呢？

这一句修改为这样就可以了

If  ftp1.Upload(f," " & filesys.GetName(f) , True) = True Then

 

 

老师，还要麻烦一下，我上传之前，先检查目录是否与表a “项目名称”相同，如相同，就直接上传，如目录不存在，就直接创建后上传到该目录。

上传成功后，将下载路径添加到“缩略图1”中，不用通过FTP管理器去添加，这个代码怎么写？

  

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.foxdb

---

以下内容是专门发给有点甜浏览

---

老师，我后面的这样写不对，看看

    Dim r As Row = Tables("表A").Current
    Dim ls = r.DataRow.Lines("中标通知书")
    Dim ls1 = r.DataRow.Lines("合同协议书")
    Dim ls2 = r.DataRow.Lines("验收报告")
    For Each f As String In dlg.FileNames
        Dim file = "/公司业绩/" & r("项目名称") & "/" & filesys.GetName(f)
        If ftp1.DirExists("/公司业绩/" & r("项目名称")) = False Then
            ftp1.MakeDir("/公司业绩/" & r("项目名称"))
        End If
        If  ftp1.Upload(f,file,True) = True Then
            ls.add(file)
            ls1.add(file)
            ls2.add(file)
        Else
            msgbox("上传" & f & "失败")
        End If
    Next
    r.DataRow.lines("中标通知书") = ls
    r.DataRow.lines("合同协议书") = ls1
    r.DataRow.lines("验收报告") = ls2
    ftp1.Close
End If

明白怎么弄了，直接写到CellButtonClick事件，判断列名就没问题了。

新问题，当上传的文件名一样，怎么覆盖原来的文件，或是提示是否覆盖原来的文件，覆盖后不在写入路径。

老师，不管上传成功还是取消都会弹出图片管理器，怎么关闭？

 

此主题相关图片如下：111.png

老师，加了还是要弹出来呢？

惭愧，我想得太复杂，写错地方了。