Foxtable(狐表)用户栏目专家坐堂 → 服务器移动文件问题


  共有2065人关注过本帖平板打印复制链接

主题:服务器移动文件问题

帅哥哟,离线,有人找我吗?
mamuaiqing
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
服务器移动文件问题  发帖心情 Post By:2019/12/26 19:47:00 [只看该作者]

代码如下:

Functions.Execute("FTP服务器",_ftp)  '判断服务器
    If _ftp.Rename("\product picture\1305-0001\1312-010.jpg","\Backup picture\1908-004\1908-004.jpg") Then  '从服务器的原图片移动到备份文件夹
        MessageBox.Show("移动文件成功!","错误提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)
        _ftp.Close
    Else
        MessageBox.Show("移动文件失败!","错误提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)        
        _ftp.Close  '如果移动失败,关闭连接
    End If

 

帮助文件:

 

写这段帮助的时候,我意外发现Rename还可以移动文件。
例如将文件"jz.png"从photo目录移到到newkey目录:

Dim ftp1 As New FtpClient
ftp1
.Host="196.128.143.28"
ftp1
.Account = "foxuser"
ftp1
.Password = "138238110"
If
ftp1.Rename("\photo\jz.png","\newkey\jz.png") Then
   
Messagebox.show("移动文件成功!")
End If

 

代码执行后返回提示移动文件失败,用FileExists判断文件,返回结果存在;用DirExists判断目录,返回结果存在,请教老师那里出问题了,谢谢


 回到顶部