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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]FTP设置多层文件夹

共有4657人关注过本帖树形打印复制链接主题：[求助]FTP设置多层文件夹

hljyclj01

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

加好友

发短信

等级：婴狐帖子：10 积分：199 威望：0 精华：0 注册：2021/9/26 17:02:00

[求助]FTP设置多层文件夹 发帖心情

Post By：2022/5/16 15:13:00 [只看该作者]

FTP设置多层文件夹：点击“增加”按钮，FTP文件夹自动添加子文件夹，首先判断FTP服务器是否有该子文件夹，如没有创建此子文件夹。

请问如何编程？

Dim dr As DataRow = e.DataRow
If e.DataCol.name = "建设文件夹" Then
    If e.DataRow.IsNull("项目名称") Or e.DataRow.IsNull("项目节点") = False
        Dim ftp1 As New FtpClient
        If ftp1.DirExists(dr("年度") & "\" & dr("项目名称") & "\" & dr("项目节点")) Then
            MessageBox.show("目录已存在","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            e.Path = dr("年度") & "\" & dr("项目名称") & "\" & dr("项目节点")
        Else
            If ftp1.MakeDir(dr("年度") & "\" & dr("项目名称") & "\" & dr("项目节点")) Then
                Messagebox.Show("创建目录成功!")
            Else
                Messagebox.Show("创建目录失败!")
            End If
        End If
    End If
End If

有点蓝

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

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/5/16 15:25:00 [只看该作者]

FtpClient要登录后才能使用

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"

hljyclj01

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

加好友

发短信

等级：婴狐帖子：10 积分：199 威望：0 精华：0 注册：2021/9/26 17:02:00

Post By：2022/5/16 15:36:00 [只看该作者]

Dim dr As DataRow = e.DataRow
If e.DataCol.name = "建设文件夹" Then
    If e.DataRow.IsNull("项目名称") Or e.DataRow.IsNull("项目节点") = False
        Dim ftp1 As New FtpClient
        ftp1.Host="196.128.143.28"
        ftp1.Account = "foxuser"
        ftp1.Password = "138238110"
        If ftp1.DirExists(dr("年度") & "\" & dr("项目名称") & "\" & dr("项目节点")) Then
            MessageBox.show("目录已存在","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            e.Path = dr("年度") & "\" & dr("项目名称") & "\" & dr("项目节点")
        Else
            If ftp1.MakeDir(dr("年度") & "\" & dr("项目名称") & "\" & dr("项目节点")) Then
                Messagebox.Show("创建目录成功!")
            Else
                Messagebox.Show("创建目录失败!")
            End If
        End If
    End If
End If