我的需求是：
做个按钮，把文件夹“F:\中科公司智能管理系统升级包\”中的三个文件通过ftp上传到服务器中"\zkglxtup\“文件夹中，并进行比较修改时间，如果上传文件的修改时间大于服务器上文件，那么进行复盖，下面代码只能复盖一个文件，如何调整？谢谢
Dim ifo As new FileInfo("F:\中科公司智能管理系统升级包\update.txt")
Dim cdtm As Date = ifo.LastWriteTime
Dim cflt As String = "F:\中科公司智能管理系统升级包\update.txt"
Dim uflt As String = "\zkglxtup\update.txt"
Dim ftp1 As New FtpClient
ftp1.Host = "116.62.**"
ftp1.Account = "zk**"
ftp1.Password = "zjzk**"
'连接FTP服务器--------------------
If ftp1.Connected = False '如果FTP没有连接
If ftp1.Connect Then '连接FTP
MessageBox.Show("FTP服务器连接成功!")
Else
MessageBox.Show("FTP服务器连接失败!")
'Return
End If
End If
If cdtm > ftp1.GetFileTime(uflt) Then
If ftp1.Upload(cflt,uflt) = True Then
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Else
Messagebox.show("服务器上的升级文件比现在的更新")
End If
[此贴子已经被作者于2019/1/27 15:21:45编辑过]
加好友 
发短信
Post By：2019/1/27 15:18:00 [只看该作者]
