老师你好：
需求：1、本地文件新建或修改后，如何自动上传到ftp指定目录下，下面这段代码只对新建文件自动上传有效，但修改后的自动上传无效，如何调整下面代码？？
2、这段代码最好写在哪里？？谢谢！！
Dim ftp1 As New FtpClient
Dim ftls As List(Of String)
ftp1.Host="116.62."
ftp1.Account = "zkftp"
ftp1.Password = "zjzk123++"
ftls = ftp1.GetFileList("\JLZL2018\BB\") 'FTP服务器指定目录下的全部文件名
For Each fl As String In FileSys.GetFiles("D:\AA\") '遍历本地指定目录下的全部文件名
If ftp1.FileExists("\JLZL2018\BB\"
& FileSys.GetName(fl)) = False Then '判断FTP服务器指定目录下指定的文件是否存在,GetName:返回文件名称,不含路径
ftp1.Upload("D:\AA\" &
FileSys.GetName(fl),"\JLZL2018\BB\"
& FileSys.GetName(fl))
End If
Next
[此贴子已经被作者于2018/11/15 23:06:20编辑过]
加好友 
发短信
Post By：2018/4/13 23:26:00 [显示全部帖子]
