以文本方式查看主题

-  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=192398)

--  作者:chnfo
--  发布时间:2024/6/21 10:19:00
--  [求助]ftp目录的问题
需要使用ftp管理公共文件。
例如公司有多个项目,每个项目有多个订单。
希望创建一个项目时,在ftp增加一个项目名称目录(项目名称不会重复)
希望创建项目X下的订单时,在ftp的项目X下增加一个订单号的目录,然后这个订单的文件都放在该订单下面

而且每个订单有不同的列,可能这些列都需要上传各自的文件(或图片),如果每个列都去设置,就很不方便,有没有批量设置的方法(例如针对这个订单做设置,而不是针对每一列做设置)

--  作者:cd_tdh
--  发布时间:2024/6/21 10:22:00
--  
上传时先判定项目名称目录是否存在,不存在就创建目录,存在就检查第二级目录,根据订单号检查,存在就直接上传,不存在就创建后上传。
[此贴子已经被作者于2024/6/21 10:21:48编辑过]

--  作者:chnfo
--  发布时间:2024/6/21 10:25:00
--  
但是那个比如上传图片,在上传时是系统内置的界面啊,又不是自己定义一个上传界面来处理
[此贴子已经被作者于2024/6/21 10:25:40编辑过]

--  作者:有点蓝
--  发布时间:2024/6/21 10:31:00
--  
内置的管理器改不了。只能自己设计窗口,自己编码处理各种上传下载功能:http://www.foxtable.com/webhelp/topics/1410.htm
--  作者:cd_tdh
--  发布时间:2024/6/21 10:37:00
--  
做个上传按钮来弄啊,内置的改不了,创建目录只能一级一级创建,不能一次创建多级。
判断和创建目录大概思路:
Dim file = "/" & r("项目名称") & "/" & r("订单编号") & "/" & filesys.GetName(f)
If ftp.DirExists("/" & r("项目名称")) = False Then \'如果不存在
    ftp.MakeDir("/" & r("项目名称")) \'创建项目名称目录
Else
    If ftp.DirExists("/" & r("项目名称") & "/" & r("订单编号")) = False Then \'如果不存在
        ftp.MakeDir("/" & r("项目名称") & "/ " & r("订单编号")) \'创建订单编号目录
    End If
End if

对了,可以在表事件CellButtonClick里面写代码

[此贴子已经被作者于2024/6/21 10:59:04编辑过]