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


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

主题：服务器移动文件问题
帅哥哟，离线，有人找我吗？
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判断目录，返回结果存在，请教老师那里出问题了，谢谢
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107031 积分：544386 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/27 8:42:00 [只看该作者]

看看目的文件夹是不是有重名的文件

 回到顶部
帅哥哟，离线，有人找我吗？
mamuaiqing
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

文件夹内不存在重复的文件
图片点击可在新窗口打开查看此主题相关图片如下：365899.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
mamuaiqing
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

测试了其他文件也是不行

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107031 积分：544386 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/27 21:36:00 [只看该作者]

我测试没有问题。要么路径有问题，目的路径不存在；要么目的目录有重名的文件

 回到顶部
帅哥哟，离线，有人找我吗？
mamuaiqing
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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  这样就失败
        
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107031 积分：544386 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/27 22:06:00 [只看该作者]

这个路径和文件是否存在？"\product picture\1908-004\1312-010.jpg"

改名测试有没有问题？

_ftp.Rename("\product picture\1908-004\1312-010.jpg","\Backup picture\1908-004\123456789.jpg")
 回到顶部
帅哥哟，离线，有人找我吗？
mamuaiqing
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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，测试结果失败

上面代码说错了
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107031 积分：544386 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/27 22:16:00 [只看该作者]

我建了同样的目录测试没有问题

Dim ftp1 As New FtpClient
ftp1.Host="127.0.0.1"
ftp1.Account = "ftpuser"
ftp1.Password = "12341234"
'ftp1.OpenManager
If ftp1.Rename("\Backup picture\1908-004\78910.txt","\Backup picture\1908-004\123456.txt") Then
    Messagebox.show("移动文件成功!")
Else
    msgbox("失败")
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询