以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  ftp整个文件夹上传  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130622)
--  作者：ZJZK2018
--  发布时间：2019/1/27 15:18:00
--  ftp整个文件夹上传
我的需求是：
做个按钮，把文件夹“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编辑过]
--  作者：有点甜
--  发布时间：2019/1/27 15:39:00
--  

你执行这个，不是只上传一个文件？

 

ftp1.Upload(cflt,uflt)

 

如果你要上传多个文件，不是要执行多个upload？
--  作者：ZJZK2018
--  发布时间：2019/1/28 9:32:00
--  
在ftp上能否上传一个文件夹？还是只能一个文件一个文件或一个压缩文件上传？
[此贴子已经被作者于2019/1/28 9:33:33编辑过]
--  作者：有点甜
--  发布时间：2019/1/28 9:38:00
--  

可以上传一个文件夹，参考代码

 

ftp1.UploadDirectory("d:\\test", False)

 

 
--  作者：ZJZK2018
--  发布时间：2019/1/28 10:53:00
--  
我的需求是：把本地指定文件夹内的文件通过ftp上传到服务器上指定文件夹内，如果有相同文件名称的则复盖此文件？如何处理？

ftp1.UploadDirectory("d:\\test", False)，只能上传
--  作者：有点甜
--  发布时间：2019/1/28 10:59:00
--  
用upload一个一个文件上传吧。