文件监视器监视新创建的文件并上传到FTP - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文件监视器监视新创建的文件并上传到FTP

共有3436人关注过本帖树形打印复制链接主题：文件监视器监视新创建的文件并上传到FTP

fubblyc

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

等级：九尾狐帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00

文件监视器监视新创建的文件并上传到FTP 发帖心情

Post By：2014/3/11 0:06:00 [只看该作者]

想实现一个文件夹里如果有新增的文件，可以自动上传至FTP指定的目录，参照帮助写出如下代码：

Dim ftp1 As New FtpClient

ftp1.Host="222.216.89.62"

ftp1.Account = "suibian"

ftp1.Password = "1222"

If ftp1.Upload("C:\TelRecord\上传\6.txt","\suibianxie\web\lyc\6.txt") = True Then

Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Else

Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

可以实现！

不过这是指定好了文件名，而是是单个的，想实现的是：【上传】的这个文件夹内只要有文件创建，就能自动上传（指定目标路径，文件名同【上传】文件夹里的文件名）

试了好多次，传不上去，实在不行，向老师请教。。。

Bin

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

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/3/11 8:40:00 [只看该作者]

设置好文件监视器路径, 在FileCreated事件

每次新增文件都会触发这个事件的. 里面有2个E参数

e参数属性：

Name: 触发事件的文件名，不含路径。
FullPath：触发事件的文件名，含路径。

If ftp1.Upload(e.FullPath,"\suibianxie\web\lyc\" & e.Name) = True Then

fubblyc

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

等级：九尾狐帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00

Post By：2014/3/11 9:48:00 [只看该作者]

谢谢Bin老师，完美解决。我昨晚是有看到

e参数属性：

Name: 触发事件的文件名，不含路径。
FullPath：触发事件的文件名，含路径。

只是不知道怎么用。

谢谢！！

主题：文件监视器 监视新创建的文件并上传到FTP