以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  FTP文件上传替换的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79780)
--  作者：niu_niu
--  发布时间：2016/1/8 17:07:00
--  FTP文件上传替换的问题
用 upload 上传FTP文件时，对于重名文件，如何可以设置替换呢？
--  作者：大红袍
--  发布时间：2016/1/8 17:14:00
--  

先判断是否存在此文件名，如果存在，就提示修改成别的名字

 

FileExists

判断指定的文件是否存在，语法：

FileExists(FileName)

FileName：要判断的文件名，含路径。

示例

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.FileExists("\\photo\\jz.png") Then \'如果存在则下载
    msgbox("已存在同名文件")

Else
    messagebox.Show("此文件不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
--  作者：niu_niu
--  发布时间：2016/1/8 17:24:00
--  
由于是上传到厂家服务器上，对上传的文件名称有一定格式要求，所以对于同一天上传的文件名称会相同，不可以替换为别的名称。而且上传上去的文件我们也不可以删除。
--  作者：大红袍
--  发布时间：2016/1/8 17:30:00
--  
如果存在同名的，那你就根据规则，自动改成另一个名字不行？