专家坐堂-Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=110765)

--  作者：有点蓝
--  发布时间：2017/12/8 22:09:00
--

If e.Col.name = "图片" Then
baseMainForm.WindowState= 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("客户名称") & "\\" & e.Row("楼层")& "\\" & "3.报价配图" & "\\" & Format( Date.Today,"yyyy-MM-dd") & "\\"& e.Row("产品名") &"-" & e.Row("产品号")&".png"
Dim path As String = e.Col.DataCol.DefaultFolder
If path = "" Then

path = Vars("IPM")

End If
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
Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Upload(path & "/" & f,f) = True Then
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
e.cancel = True
Tables("订单总表.订单明细").Current.Save() \'保存文件的行
End If

http://www.foxtable.com/webhelp/scr/1410.htm

[此贴子已经被作者于2017/12/8 22:10:01编辑过]

--  作者：有点蓝
--  发布时间：2017/12/8 23:02:00
--

改为自己的ftp的地址和用户，以及上传的路径。下面代码运行后提示成功还是失败？

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Upload(path & "/" & f,f) = True Then
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

--  作者：有点蓝
--  发布时间：2017/12/9 8:37:00
--
直接打开管理器能不能打开？
Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
ftp1.OpenManager

这样呢？
Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Upload(path & "\\" & f, "/" & f) = True Then
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

--  作者：有点甜
--  发布时间：2017/12/10 16:08:00
--

路径必须存在才能上传的。如果不存在，必须创建

Dim path As String = ""

Dim file As String = e.Row("客户名称") & "\\" & e.Row("楼层")& "\\" & "3.报价配图" & "\\" & Format( Date.Today,"yyyy-MM-dd")
For Each s As String In file.split("\\")
    path = path & "/" & s
    If ftp1.DirExists(path) = False Then
        ftp1.MakeDir(path)
    End If
Next

If ftp1.Upload(path & "/" & f,f) = True Then

--  作者：有点甜
--  发布时间：2017/12/11 14:25:00
--

现在执行同样报错不能上传？下面代码弹出什么？

msgbox(ftp1.DirExists("/" & file))

msgbox(ftp1.DirExists("/" & file.replace("\\", "/")))

--  作者：有点甜
--  发布时间：2017/12/13 9:08:00
--

Dim path2 As String = ""

Dim file As String = e.Row("客户名称") & "\\" & e.Row("楼层")& "\\" & "3.报价配图" & "\\" & Format( Date.Today,"yyyy-MM-dd")
For Each s As String In file.split("\\")
    path2 = path2 & "/" & s
    If ftp1.DirExists(path2) = False Then
        ftp1.MakeDir(path2)
    End If
Next

If ftp1.Upload(path2 & "/" & f,f) = True Then

--  作者：有点甜
--  发布时间：2017/12/13 11:52:00
--

If ftp1.Upload(path2 & "/" & f,f) = True Then

改成

If ftp1.Upload(path & "/" & f, path2 & "/" & e.Row("产品名") &"-" & e.Row("产品号") & ".png") = True Then

--  作者：有点甜
--  发布时间：2017/12/13 11:53:00
--

如果还报错，请先加入msgbox，定位出错位置。

--  作者：有点蓝
--  发布时间：2017/12/16 11:06:00
--
“e”是“Private”重启项目就可以了