[求助]FTP事件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]FTP事件

共有3436人关注过本帖树形打印复制链接主题：[求助]FTP事件

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/2 10:00:00 [显示全部帖子]

1、创建代码，请写到beforeupload事件去。

2、肯定是先弹出【文件管理窗口】的，请认真测试。

3、动态设置更目录rootdir以及Changedir

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

4、上传不成功肯定是你ftp没有设置正确，提示什么错？

5、在afterupload事件，重命名。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/2 21:43:00 [显示全部帖子]

判断是否存在文件夹，参考

DirExists

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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/3 9:16:00 [显示全部帖子]

1、

If ftp1.Rename(currentName,"\笔录\" & "\" & dr("承办人") & "\" & dr("案号") & ".doc")

改成

msgbox(CurFolder & "/" & filesys.getname(LocalFile))

If ftp1.Rename(CurFolder & "/" & filesys.getname(LocalFile),"\笔录\" & "\" & dr("承办人") & "\" & dr("案号") & ".doc")

2、AfterUpload 事件，给表格赋值，如

dr("上传笔录") = "\笔录\" & "\" & dr("承办人") & "\" & dr("案号") & ".doc"

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/3 22:35:00 [显示全部帖子]

1、

Dim dr As Row = Tables("数据表").Current
For Each Info() As String In e.Infos
    If Info(0).contains(dr("承办人")) = False Then '隐藏不是当前承办人的子目录
        e.Remove(Info)
    End If
Next

2、你在切换行事件 currentChanged事件或者相关的时间，切换根目录即可

3、rename如果没有报错，说明就是重命名了的，你刷新一下窗口看看最新结果

下一主题 >> << 上一主题

主题：[求助]FTP事件