升级包自动上传FTP - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 升级包自动上传FTP

共有2330人关注过本帖树形打印复制链接主题：升级包自动上传FTP

fendouww

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

加好友

发短信

等级：小狐帖子：307 积分：2448 威望：0 精华：0 注册：2019/7/19 13:09:00

升级包自动上传FTP 发帖心情

Post By：2020/4/28 9:53:00 [只看该作者]

利用文件监视器，还可以和第三方软件协同工作。
例如有个人事管理系统，希望第三方的拍照软件给员工拍照，希望拍好的照片以员工的工号作为文件名，并自动存入员工表的照片列。
假定拍照软件存放照片的目录是"c:\photo"，我们首先要监控此目录，在AfterOpenProject事件设置代码：

With FileWatcher
    .Path = "c:\Photo"
    .Delay = 1000
    .Enabled = True
End With

然后将FileCreated事件代码设置为：

Dim r As Row = Tables("员工").Current
r("照片") = r("工号") & ".jpg"
FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\" & r("照片"),True)

这里假定照片是jpg格式。

老师,我想用文件监视器自动上传本地升级包到FTP服务器要如何写代码?

有点蓝

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

加好友

发短信

等级：超级版主帖子：107883 积分：548784 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/28 10:26:00 [只看该作者]

监视器可以获取文件路径，根据路径调用FtpClient上传即可：http://www.foxtable.com/webhelp/topics/1410.htm

fendouww

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

加好友

发短信

等级：小狐帖子：307 积分：2448 威望：0 精华：0 注册：2019/7/19 13:09:00

Post By：2020/4/28 13:58:00 [只看该作者]

此主题相关图片如下：snipaste_2020-04-28_13-54-57.jpg

此主题相关图片如下：snipaste_2020-04-28_13-55-06.jpg

我试了,不成功,没有触发事件
图片点击可在新窗口打开查看

此主题相关图片如下：snipaste_2020-04-28_13-55-31.jpg

有点蓝

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

加好友

发短信

等级：超级版主帖子：107883 积分：548784 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/28 14:38:00 [只看该作者]

先重新仔细看看帮助http://www.foxtable.com/webhelp/topics/1963.htm

1、没有指定监控的路径

2、文件筛选指定文件名即可，不需要路径

With FileWatcher
    .Path = "c:\Data" update.txt文件所在的目录完整路径
    .Filter = "update.txt" 这样只会监控一个文件，如果需要也上传zip升级包，把这一行代码去掉不需要做过滤
    .Delay = 1000
    .Enabled = True
End With

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

主题：升级包自动上传FTP