B4J Question [SOLVED] FTP Commands

[moore_it]

Hi all,

i've a problem with FTP commands.
When i use the command RNFR and RNTO for move files from an ftp folder to another, not all files are moved.

I try to insert an sleep command but the problem remain

do you have any suggestions ?

 

[teddybear]

I guess you sent the RNTO command without waiting for RNFR to complete

 

[moore_it]

i try this but not work

FTP.SendCommand("RNFR",remotepath)
Dim sf As Object = FTP.SendCommand("RNTO",remotehstpath)
wait for (sf)  FTPLIST_CommandCompleted (Command As String, Success As Boolean, ReplyCode As Int, ReplyString As String)

 

[teddybear]

i try this but not work

FTP.SendCommand("RNFR",remotepath)
Dim sf As Object = FTP.SendCommand("RNTO",remotehstpath)
wait for (sf)  FTPLIST_CommandCompleted (Command As String, Success As Boolean, ReplyCode As Int, ReplyString As String)

What is the FTPLIST_CommandCompleted?

 

[moore_it]

FTP.initialize("FTPLIST" etc etc)

 

[teddybear]

Try this

Dim sf As Object = FTP.SendCommand("RNFR",remotepath)
wait for (sf)  FTPLIST_CommandCompleted (Command As String, Success As Boolean, ReplyCode As Int, ReplyString As String)
FTP.SendCommand("RNTO",remotehstpath)

 

[moore_it]

Thanks for the help but it doesn't work, it downloads all the files but only moves three.
Not always though sometimes two sometimes four sometimes all of them.

 

[teddybear]

Thanks for the help but it doesn't work, it downloads all the files but only moves three.
Not always though sometimes two sometimes four sometimes all of them.

You can only try to rename without downloading

 

[moore_it]

and download the renamed file ?

 

[moore_it]

I try but non work it doesn't download the files renamed ...

But move the files

 

[moore_it]

yes this work but i need to download these files
When i do it ?

 

[teddybear]

You can do it in DownloadCompleted event

 

[moore_it]

yes now work

Dim FTPDWN As FTP
                        FTPDWN.Initialize("FTPDWN",m.Get("d01"),m.get("d02"),m.Get("d03"),m.Get("d04"))
                        FTPDWN.PassiveMode = True
                        Dim sf As Object = FTPDWN.DownloadFile(remotepath,False,localpath,remotefile)
                        wait for (sf) FTPDWN_DownloadCompleted (ServerPath As String, Success As Boolean)
                        If Success Then
                            Log("download "&remotefile)
                            ' importo il file e lo cancello
                            ImportToDatabase(remotefile)
                            Log("importato "&remotefile)
                            ' scaricato correttamente sposto
                            Dim WO As Object = FTPDWN.SendCommand("RNFR",remotepath)
                            wait for (WO) FTPDWN_CommandCompleted (Command As String, Success As Boolean, ReplyCode As Int, ReplyString As String)
                            Dim WO As Object = FTPDWN.SendCommand("RNTO",remotehstpath)
                            wait for (WO) FTPDWN_CommandCompleted (Command As String, Success As Boolean, ReplyCode As Int, ReplyString As String)
                            Log("ridenominato "&remotefile)
                            MB00.SetMessage(fx.Colors.rgb(0,150,0),"File "&remotefile&" scaricato correttamente !",Chr(0xF071),True)
                        Else
                            MB00.SetMessage(fx.Colors.rgb(150,0,0),LastException.Message,Chr(0xF071),False)
                            Log(LastException.Message)
                        End If
                        FTPDWN.Close
ReplyReport Edit Delete