Sub ftp2_UploadCompleted (ServerPath As String, Success As Boolean)
Log ("serverpath=" & ServerPath)
Log ("success=" & Success)
If Success = False Then
Log(LastException.Description)
Else
Log ("Successfull")
End If
renamefrom = ServerPath
renameto=renamefrom.Replace("2","3")
Log("renamefrom " & renamefrom)
ftp2.SendCommand("RNFR", renamefrom)
End Sub
Sub ftp2_CommandCompleted (Command As String, Success As Boolean, ReplyCode As Int, ReplyString As String)
Log ("command=" & Command)
Log ("success=" & Success)
Log ("replyCODE=" & ReplyCode)
Log ("replystring=" & ReplyString)
Select Case True
Case Command="RNFR"
Log("renameto " & renameto)
ftp2.SendCommand("RNTO", renameto)
End Select
End Sub