以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  FTP文件上传  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177972)
--  作者：yifan3429
--  发布时间：2022/6/13 12:19:00
--  FTP文件上传
 If e.Col.name = "图片" Then
            baseMainForm.WindowState = System.Windows.forms.FormWindowState.Minimized
            ClipBoard.Clear
            Dim proc As New Process
            proc.File = ApplicationPath & "/capture.exe"
            proc.WaitForClose = True
            proc.Start
            If ClipBoard.GetImage IsNot Nothing Then
                Dim f As String = e.Row("创建者") & "\\" & Format( Date.Today, "yyyy-MM-dd") & "\\" & e.Row("客户信息") & "\\" & e.Row("产品订购ID") & "-" & e.Row("产品名称") & ".png"
                Dim path As String = e.Col.DataCol.DefaultFolder

                If path = "" Then
                    path = "\\\\192.168.1.241\\项目文件$\\报价资料\\"
                End If

怎改成FTP存档

                basemainform.WindowState = 2
                Dim dir As String = FileSys.GetParentPath(path & "/" & f)
                If FileSys.DirectoryExists(dir) = False Then FileSys.CreateDirectory(dir)
                ClipBoard.GetImage.save(path & "/" & f)
                e.Row(e.Col.name) = f
            End If
            e.cancel = True
            Tables("订单_产品主表").Current.Save() \'保存文件的行
        End If
--  作者：有点蓝
--  发布时间：2022/6/13 13:35:00
--  
参考 :http://www.foxtable.com/webhelp/topics/1410.htm