主题：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"
                If path = "" Then
                    path = "\\192.168.1.241\项目文件$\报价资料\"
                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

参考 :http://www.foxtable.com/webhelp/topics/1410.htm