主题：本地文件新建或修改后，如何自动上传到ftp指定目录下

Dim ftp1 As New FtpClient

Dim ftls As List(Of String)

ftp1.Host="116.62.39.101"

ftp1.Account = "zkftp"

ftp1.Password = "zjzk123++"

ftls = ftp1.GetFileList("\JLZL2018\BB\")  'FTP服务器指定目录下的全部文件名

For Each fl As String In FileSys.GetFiles("D:\AA\")  '遍历本地指定目录下的全部文件名

  ftp1.Upload("D:\AA\" & FileSys.GetName(fl),"\JLZL2018\BB\" & FileSys.GetName(fl))

Next

Dim ftp1 As New FtpClient

Dim ftls As List(Of String)

ftp1.Host="116.62.39.101"

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))

else

按下面方法比较本地文件和ftp文件的时间

    End If

Next

ftp文件日期

GetFileTime

返回ftp上指定文件最后一次修改的日期时间。

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
Dim sz As Date
sz = ftp1.GetFileTime("\photo\jz.png")
Output.Show("修改时间:" & sz)G

本地文件日期：http://www.foxtable.com/webhelp/scr/2707.htm