在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服务器，怎么办
加好友 
发短信
Post By：2017/8/28 12:32:00 [只看该作者]
