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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文件保存到FTP服务器

共有2143人关注过本帖树形打印复制链接主题：文件保存到FTP服务器

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/11 14:25:00 [显示全部帖子]

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

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

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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/13 11:53:00 [显示全部帖子]

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

下一主题 >> << 上一主题

主题：文件保存到FTP服务器