Foxtable(狐表)用户栏目专家坐堂 → FTP下载文件成功后,怎么样重命名


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

主题:FTP下载文件成功后,怎么样重命名

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


加好友 发短信
等级:童狐 帖子:255 积分:2286 威望:0 精华:0 注册:2020/6/28 8:43:00
FTP下载文件成功后,怎么样重命名  发帖心情 Post By:2020/11/7 9:10:00 [显示全部帖子]

如题目,利用FTP下载内部服务器上的文件后,怎么样对文件重命名?

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


加好友 发短信
等级:童狐 帖子:255 积分:2286 威望:0 精华:0 注册:2020/6/28 8:43:00
  发帖心情 Post By:2020/11/7 10:40:00 [显示全部帖子]

如下,不行啊!!

 

    Dim lr As WinForm.ListViewRow = lvw.Current
    If lr IsNot Nothing Then
        If lr.Text = "暂时没有文件"
            MessageBox.Show("暂时没有文件")
            Return
        End If
        Dim Dow As String = e.Form.Controls("下载路径").text
        If Dow IsNot Nothing Then
            e.Form.text = "ftp管理器  文件下载中...."
            If ftp.Download(path & "\" & lr.text,Dow & "\" & lr.text,True) = True Then  '若下载成功
                file = Dow & "\" & lr.text  '定义一个用于下载后文件路径与名称的变量
               
                e.Form.text = "ftp管理器"
                MessageBox.Show("下载成功!","提醒")
                If rck.Checked = True Then '如果下载后重命名的复选框被打勾
              
                    ftp.Rename(Dow & "\" & lr.text,name2)   '则下载后重新命名
                    End If

            Else
                MessageBox.Show("下载失败!","提醒")
                e.Form.text = "ftp管理器"
            End If
        Else


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


加好友 发短信
等级:童狐 帖子:255 积分:2286 威望:0 精华:0 注册:2020/6/28 8:43:00
  发帖心情 Post By:2020/11/7 10:59:00 [显示全部帖子]

是下载到本地以后的.

 

服务器上的不重命名.

 

下载到本地后,对本地的文件重命名.

 

 


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


加好友 发短信
等级:童狐 帖子:255 积分:2286 威望:0 精华:0 注册:2020/6/28 8:43:00
  发帖心情 Post By:2020/11/7 13:45:00 [显示全部帖子]

谢谢!

 回到顶部