以文本方式查看主题

-  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=91047)
--  作者：yifan3429
--  发布时间：2016/9/28 11:32:00
--  FTP自动目录
Select Case e.DataCol.Name
        Case "客户色板"
            e.SubFolder =  e.DataRow("客户名称") & "\\"  & e.DataRow("终端客户")& "\\"  & "1.客户色板"  & "\\"& Format( date.Today,"yyyy-MM-dd")&"\\"
            SystemReady = True
        Case "设计图"
            e.SubFolder =  e.DataRow("客户名称") & "\\"  & e.DataRow("终端客户")& "\\"  & "2.设计图纸"  & "\\"& Format( date.Today,"yyyy-MM-dd")&"\\"
            SystemReady = True
        Case "基层图"
            e.SubFolder =  e.DataRow("客户名称") & "\\"  & e.DataRow("终端客户")& "\\"  & "3.基层图绘"  & "\\"& Format( date.Today,"yyyy-MM-dd")&"\\"
            SystemReady = True
        Case "效果图"
            e.SubFolder =  e.DataRow("客户名称") & "\\"  & e.DataRow("终端客户")& "\\"  & "4.效果图"  & "\\"& Format( date.Today,"yyyy-MM-dd")&"\\"
            SystemReady = True
        Case "客户资料"
            e.SubFolder =  e.DataRow("客户名称") & "\\"  & e.DataRow("终端客户")& "\\"  & "5.客户来件"  & "\\"& Format( date.Today,"yyyy-MM-dd")&"\\"
            SystemReady = True
    End Select
End If


原来在局域网用这个，当前使用的FTP 那么这个代码就貌似失效  如何解决呢
--  作者：有点蓝
--  发布时间：2016/9/28 11:57:00
--  
改为FTPClient
--  作者：yifan3429
--  发布时间：2016/10/22 22:23:00
--  

原来的存在着下


BeforeAttachFile

此事件在向文件型、多文件型、以及图片型列中添加文件的时候执行。


达到这个动态路径的效果


ftp就不习行了
--  作者：狐狸爸爸
--  发布时间：2016/10/23 16:21:00
--  
ftp没有这个功能