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

Dim fls() As String = dlg.FileNames

Dim Values1 As New List(Of String)

Dim Values2 As New List(Of String)

Dim ftp As new FTPClient

ftp.Host = "192.168.1.35"

ftp.Account = "tester"

ftp.Password = "tester"

e.Form.text = "所选文件上传中...."

Dim ss As String

For Each f1 As String In dlg.FileNames

    If (ftp.Upload(f1,Vars("zhygwjj") & "\" & Filesys.getName(f1))) = True Then  '判断是否上传成功

        If (FileSys.GetName(f1).Contains(".")) Then

            Dim dian As Integer = FileSys.GetName(f1).LastIndexOf(".")

            ftp.Rename(FileSys.GetName(f1),FileSys.GetName(f1).SubString(0,dian) & "_" & Tables("临时版本跟踪表").Current("临时版本编号") & FileSys.GetName(f1).SubString(dian,FileSys.GetName(f1).Length - dian))

        End If

        values1.add(f1) '如果上传成功,那么就把这个文件添加到集合values1里面

        Dim xg As Integer = f1.LastIndexOf("\") '找出f1文件的最后一个\

        Dim fname As String = f1.SubString(xg + 1) '取出f1的文件名

        ss = ss & vbcrlf & fname '分行显示f1的文件名

    End If

Next

Functions.Execute("listview")

e.Form.text = "版本目录文件list"

MessageBox.Show(ss,"恭喜你上传成功" & values1.count  & "个文件!,分别为:")