主题：图片，上传到ftp

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

dr("图片") = IIF(dr.isnull("图片"),"",vbcrlf) & "/abc.jpg"

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

 

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

试试改成

 

Dim dlg As New openFileDialog '定义一个新的SaveFileDialog
dlg.MultiSelect = True
If dlg.showDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ftp1 As new  ftpclient
    ftp1.host="*****"
    ftp1.Account =  "ftp003"
    ftp1.password =  "*****"
   
    For Each f As String In dlg.FileNames
        If  ftp1.Upload(f,"\系统更新\" & filesys.GetName(f) , True) = True Then
            Messagebox.show(dlg.FileName & "上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            Messagebox.show(dlg.FileName & "上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    Next
    ftp1.Close
End If

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

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

 

 

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

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

  

 

 

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

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

---

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

---

Dim dlg As New openFileDialog '定义一个新的SaveFileDialog
dlg.MultiSelect = True
If dlg.showDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ftp1 As new  ftpclient
    ftp1.host="*******"
    ftp1.Account = "ftp001"
    ftp1.password = "******"
    Dim r As Row = Tables("表A").Current
    Dim ls = 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)
        Else
            msgbox("上传" & f & "失败")
        End If
    Next
    r.DataRow.lines("中标通知书") = ls
    ftp1.Close
End If

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

    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事件，判断列名就没问题了。

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