| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 文件监视器 监视新创建的文件并上传到FTP (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=47469) |
| -- 作者：fubblyc -- 发布时间：2014/3/11 0:06:00 -- 文件监视器 监视新创建的文件并上传到FTP 想实现一个文件夹里如果有新增的文件，可以自动上传至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 -- 发布时间：2014/3/11 8:40:00 -- http://www.foxtable.com/help/topics/1963.htm 设置好文件监视器路径, 在FileCreated事件 每次新增文件都会触发这个事件的. 里面有2个E参数 e参数属性： Name: 触发事件的文件名，不含路径。 If ftp1.Upload(e.FullPath,"\\suibianxie\\web\\lyc\\" & e.Name) = True Then |
| -- 作者：fubblyc -- 发布时间：2014/3/11 9:48:00 -- 谢谢Bin老师，完美解决。我昨晚是有看到 e参数属性： Name: 触发事件的文件名，不含路径。 只是不知道怎么用。 谢谢！！ |