Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共5 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:[求助]ftp目录的问题

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

而且每个订单有不同的列,可能这些列都需要上传各自的文件(或图片),如果每个列都去设置,就很不方便,有没有批量设置的方法(例如针对这个订单做设置,而不是针对每一列做设置)
2楼
cd_tdh 发表于:2024/6/21 10:22:00
上传时先判定项目名称目录是否存在,不存在就创建目录,存在就检查第二级目录,根据订单号检查,存在就直接上传,不存在就创建后上传。
[此贴子已经被作者于2024/6/21 10:21:48编辑过]
3楼
chnfo 发表于:2024/6/21 10:25:00
但是那个比如上传图片,在上传时是系统内置的界面啊,又不是自己定义一个上传界面来处理
[此贴子已经被作者于2024/6/21 10:25:40编辑过]
4楼
有点蓝 发表于:2024/6/21 10:31:00
内置的管理器改不了。只能自己设计窗口,自己编码处理各种上传下载功能:http://www.foxtable.com/webhelp/topics/1410.htm
5楼
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编辑过]
共5 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01563 s, 2 queries.