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