代码如下:
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判断目录,返回结果存在,请教老师那里出问题了,谢谢