以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于已经打开文件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105867)
--  作者：做自己
--  发布时间：2017/8/28 12:32:00
--  关于已经打开文件
在FileChaned里面写如下代码
Dim strName As String
strName = e.Name
Dim strLujingjian As String
Dim strDes As String
If strName.Contains("$") Or strName.Contains("~") Then
Else If strName.Contains(".xlsx") Or strName.Contains(".xls") Or strName.Contains(".doc") Or strName.Contains(".docx") Then
Dim ftp1 As new ftpclient
ftp1.host="192.168.1.107"
ftp1.Account = "sara"
ftp1.Password = "123456"
ftp1.UTF8 = True
strLujingjian = "D:\\Download2\\" & e.Name
strDes = "\\"& e.Name
ftp1.Upload(strLujingjian,strDes)
End If
但是提示文件已经打开无法上传怎么办啊？因为文件编辑之后保存，就执行这个代码，但是我希望立马把修改后的文件上传到ftp服务器，怎么办
--  作者：有点甜
--  发布时间：2017/8/28 14:23:00
--  

 

修改后再上传。你可以把要上传的文件路径记录下来，保存在一个表里面。再做一个计划管理，把表数据的文件上传上去，上传成功后删除记录。

 

 
--  作者：做自己
--  发布时间：2017/8/28 15:13:00
--  
计划管理是每隔一段时间执行一次，那多浪费资源啊
--  作者：有点甜
--  发布时间：2017/8/28 15:14:00
--  
以下是引用做自己在2017/8/28 15:13:00的发言：
计划管理是每隔一段时间执行一次，那多浪费资源啊

 

你可以在需要的时候开启，计划管理里面，如果没有表数据，自己把自己暂停即可。
--  作者：做自己
--  发布时间：2017/8/28 15:16:00
--  
那我参考哪里写代码
--  作者：有点甜
--  发布时间：2017/8/28 15:17:00
--  
以下是引用做自己在2017/8/28 15:16:00的发言：
那我参考哪里写代码

 

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

 
--  作者：做自己
--  发布时间：2017/8/28 15:35:00
--  
提示找不到路径
--  作者：做自己
--  发布时间：2017/8/28 15:35:00
--  
提示这个问题
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
实际存在这个路径
[此贴子已经被作者于2017/8/28 15:35:37编辑过]
--  作者：有点甜
--  发布时间：2017/8/28 15:47:00
--  
贴出你写的代码。
--  作者：做自己
--  发布时间：2017/8/28 16:00:00
--  
Dim strLujingjian As String
Dim strDes As String
Dim ftp1 As new ftpclient
ftp1.host="192.168.1.107"
ftp1.Account = "sara"
ftp1.Password = "123456"
ftp1.UTF8 = True
strLujingjian = "D:\\Download2\\" & Vars("nStrName")
strDes = "\\"& Vars("nStrName")
ftp1.Upload(strLujingjian,strDes)