主题：[求助]对上传成功的文件进行重命名

1、重命名是否多余？你upLoad的时候，本来就是能够控制名字的啊；

2、无法重命名，就是你的路径没写对，第一第二个都要是ftp上的路径。

 参考下面的代码，自己改一下

Dim bh As String = "_03024_2015"
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    For Each f As String In dlg.FileNames
        Dim f1 As String = FileSys.GetName(f)
        Dim fname As String
        If f1.EndsWith("_vxWorks") Then
            Dim idx As Integer = f1.LastIndexOf("_vxWorks")
            fname = f1.SubString(0, idx-1) & bh & "_vxWorks"
        Else
            Dim idx As Integer = f1.LastIndexOf(".")
            If idx > -1 Then
                fname = f1.SubString(0, idx) & bh & f1.SubString(idx)
            Else
                fname = f1 & bh
            End If
        End If
        msgbox(fname)
    Next
End If

 无语......类似下面这样写代码啊

If dlg.ShowDialog = DialogResult.OK Then
    Dim ftp As new FTPClient
    ftp.Host = "192.168.1.35"
    ftp.Account = "tester"
    ftp.Password = "tester"
    'e.Form.text = "所选文件上传中...."
   
    Dim ss As String
    Dim fname1 As String
    For Each f As String In dlg.FileNames
        Dim f1 As String = FileSys.GetName(f)
        If f1.EndsWith("_vxWorks") Then
            Dim idx As Integer = f1.LastIndexOf("_vxWorks")
            fname1 = f1.SubString(0, idx-1) & "_" & bh & "_vxWorks"
        Else
            Dim idx As Integer = f1.LastIndexOf(".")
            If idx > -1 Then
                fname1 = f1.SubString(0, idx) & "_" & bh & f1.SubString(idx)
            Else
                fname1 = f1 & "_" & bh
            End If
        End If
        If (ftp.Upload(f,Vars("zhygwjj") & "\" & fname1))= True Then  '判断是否上传成功-----没上传成功
           
            ss = ss & vbcrlf & fname1 '分行显示f1的文件名
        End If
    Next
    Functions.Execute("listview")
    'e.Form.text = "版本目录文件list"
    ftp.Close
End If