以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  FTP下载文件成功后,怎么样重命名  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158079)
--  作者：lianghanyu
--  发布时间：2020/11/7 9:10:00
--  FTP下载文件成功后,怎么样重命名
如题目,利用FTP下载内部服务器上的文件后,怎么样对文件重命名?
--  作者：有点蓝
--  发布时间：2020/11/7 9:35:00
--  
使用代码下载，可以任意指定名称：http://www.foxtable.com/webhelp/topics/1410.htm

Dim ftp1 As new ftpclient
ftp1.host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.password = "138238110"
If ftp1.Download("\\photo\\Desert.jpg","c:\\data\\Desert.jpg") = True Then
    Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
--  作者：lianghanyu
--  发布时间：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
--  作者：有点蓝
--  发布时间：2020/11/7 10:49:00
--  
要重命名本地的文件？还是重命名ftp服务器上的文件？
--  作者：lianghanyu
--  发布时间：2020/11/7 10:59:00
--  

是下载到本地以后的.

 

服务器上的不重命名.

 

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

 

 
--  作者：有点蓝
--  发布时间：2020/11/7 11:20:00
--  
直接在这里使用新的名称保存就行了呀

If ftp.Download(path & "\\" & lr.text,Dow & "\\" & lr.text,True) = True Then  \'若下载成功

ftp.Rename是改服务器的，不需要
--  作者：lianghanyu
--  发布时间：2020/11/7 13:45:00
--  
谢谢!