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


  共有2064人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
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判断目录,返回结果存在,请教老师那里出问题了,谢谢


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


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2019/12/27 20:08:00 [显示全部帖子]

目的文件夹1908-004是空的
图片点击可在新窗口打开查看此主题相关图片如下:2365447.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/12/27 20:08:50编辑过]

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


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2019/12/27 20:10:00 [显示全部帖子]

文件夹内不存在重复的文件
图片点击可在新窗口打开查看此主题相关图片如下:365899.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2019/12/27 20:16:00 [显示全部帖子]

测试了其他文件也是不行

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


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2019/12/27 22:03:00 [显示全部帖子]

奇怪,为什么用1908-004目录就失败,用其他目录就可以?

代码为If _ftp.Rename("\product picture\1305-0001\1312-010.jpg","\Backup picture\1305-0001\1908-004.jpg") Then  这样就可以

把目标文件复制到1908-004目录底下,代码为If _ftp.Rename("\product picture\1908-004\1312-010.jpg","\Backup picture\1908-004\1908-004.jpg") Then  这样就失败
        

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


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2019/12/27 22:10:00 [显示全部帖子]

学生是用这样代码测试  If _ftp.Rename("\Backup picture\1908-004\78910.txt","\Backup picture\1908-004\12365.txt") Then,测试结果失败

上面代码说错了

 回到顶部