主题：[求助]模仿内置FTP，想自制一个类似的，求教“重命名”按钮该如何写代码？

模仿内置FTP，想自制一个类似的，求教“重命名”按钮该如何写代码？
此主题相关图片如下：qq截图20160216144626.jpg

本页地址：http://www.foxtable.com/help/topics/2829.htm

重命名，不是有函数么？

 

Rename

用于重命名文件或目录，语法：

Rename(currentName, newName)

currentName：要重命名的文件或目录，含路径。
newName：新的名称，含路径。

如果重命名成功，则返回True，否则返回False.

示例

重命名文件：

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Rename("\Photo\Desert.jpg","\Photo\Desert1.jpg") Then
    Messagebox.show("重命名文件成功!")
End If

谢谢老师！