以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]FTP设置多层文件夹  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=177289)
--  作者：hljyclj01
--  发布时间：2022/5/16 15:13:00
--  [求助]FTP设置多层文件夹

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
--  作者：有点蓝
--  发布时间：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
--  发布时间：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
--  作者：hljyclj01
--  发布时间：2022/5/16 15:38:00
--  

通过表事件BeforeAddFile中实现，对吗？在PTP数据库中自动添加文件夹
--  作者：hljyclj01
--  发布时间：2022/5/16 15:41:00
--  

在FTP服务器中添加“新建目录”，是需要手动添加，还是能通过编码自动添加？

 
--  作者：有点蓝
--  发布时间：2022/5/16 15:45:00
--  
如果要动态添加目录，并把文件上传到这个目录，需要设计窗口，到按钮事件处理，不能在表事件里处理。

另外登录请改为自己ftp的ip、登录用户和密码，如果连这些东西都不知道改，怀疑用的根本就不是ftp。
--  作者：hljyclj01
--  发布时间：2022/5/16 15:59:00
--  

呵呵，抱歉啊，因为FTP涉及服务器的用户名，密码，因此没粘过来，明白老师的思路了，我现在就改成窗口编程，试试！