以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- FTP文件上传 (http://foxtable.com/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 path = "\\\\192.168.1.241\\项目文件$\\报价资料\\" End If 怎改成FTP存档 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 |