主题：[求助][原创]FTP 上传同名后重命名，怎么获取重命名后的文件名

Dim Lfl As String=e.LocalFile

Dim fl As String =FileSys.GetName(Lfl)

Dim ourfolder As String =e.Curfolder.TrimEnd("/")

Dim i As Integer =1

Dim fileExt As String =fl.SubString(fl.LastIndexof(".")+1)

Dim fileName As String =fl.Replace("." & fileExt,"")

Dim pfl As String =ourfolder & "/" & fl

Do While _ftp.FileExists(pfl)

    fl=fileName & "(" & CSTR(i) & ")" & "." & fileExt

    

    pf1=curfolder & "/" & fl

    i=i+1

Loop

If i >1 Then

    _ftp.Upload(Lfl ,pfl,False)

    e.Cancel=True

End If