以文本方式查看主题

-  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=94260)
--  作者：有点色
--  发布时间：2016/12/20 10:19:00
--  

动态设置存放路径，也就是根目录 RootDir

 

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

 
--  作者：有点蓝
--  发布时间：2016/12/20 21:58:00
--  
使用ftp的时候BeforeAttachFile事件是不会触发的，只能使用内置的FTPClient来操作，http://www.foxtable.com/webhelp/scr/1410.htm

创建目录只能在BeforeAddFile 事件做
Dim path As String = "\\tr"
If e.DataCol.FTPClient.DirExists(path) = False
    e.DataCol.FTPClient.MakeDir(path)
    path = path & "\\abc" \'一次只能创建一层目录，多层目录需要创建多次
    e.DataCol.FTPClient.MakeDir(path)
    e.DataCol.FTPClient.ChangeDir(path)
End If
--  作者：有点蓝
--  发布时间：2016/12/20 22:50:00
--  
仔细看6楼。路径改为自己的

然后这种方式只能创建目录，需要自己上传文件到指定目录
--  作者：有点蓝
--  发布时间：2016/12/21 8:52:00
--  
6楼不就是代码吗，都说了BeforeAttachFile事件是没有用的，代码放到BeforeAddFile 事件
--  作者：有点色
--  发布时间：2016/12/21 11:02:00
--  

Select Case e.DataCol.Name
    Case "上传招标文件" \'插入文件
        Dim path As String = "/监理资料/招标文件"
        If e.DataCol.FTPClient.DirExists(path) = False
            e.DataCol.FTPClient.MakeDir(path)
        End If
        path = "/监理资料/招标文件/" & Format(e.DataRow("开标日期"), "yyyyMM") & e.DataRow("项目名称")
        If e.DataCol.FTPClient.DirExists(path) = False
            e.DataCol.FTPClient.MakeDir(path)
        End If
        e.DataCol.FTPClient.ChangeDir(path)
End Select

[此贴子已经被作者于2016/12/21 11:02:42编辑过]
--  作者：有点色
--  发布时间：2016/12/21 14:36:00
--  

动态给filemanage设置一下ftp的根目录试试

 

rootdir、changedir

 

http://www.foxtable.com/webhelp/scr/1898.htm
--  作者：有点色
--  发布时间：2016/12/21 15:04:00
--  

 你要做什么操作？增加文件还是打开文件？如果是增加文件，默认就是会触发beforeAddFile事件的啊。