ftp.download

[LeandroSPI]

Boa tarde,

Não estou conseguindo realizar o ftp.download e não consigo identificar o problema.
Executo o ftp.list e o ftp.upload normalmente, mas o ftp.download não vai.
Será que alguém pode me ajudar?

abaixo segue o código que estou utilizando, agradeço desde já a ajuda.

Activity.LoadLayout("Main")
Arquivos.Initialize
FTP.Initialize("FTP", "Meu.ftp", 21, "User", "SENHA")
FTP.list("VENDEDOR_003/V003")

End Sub

Sub btn_download_Click
FTP_Start

End Sub

Sub FTP_ListCompleted (ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
Msgbox (ServerPath, "ServerPath_LIST")
If Success == False Then
Log(LastException.Message)
Else
For i = 0 To Files.Length - 1
Dim p As Arquivos
p.arquivo = Files(i).Name
Arquivos.Add (p)
'Msgbox(Files(i).Name,"Files(i).Name")
Next
'For i = 0 To Folders.Length - 1
' Msgbox(Folders(i).Name, "Folders(i).Name")
'Next
End If
End Sub

Sub FTP_DownloadCompleted (ServerPath As String, Success As Boolean)
Msgbox("Downloaded: " & ServerPath & ", Success=" & Success, "Download")
If Success = False Then
Msgbox(LastException.Message, "Mensagem")
End If

End Sub

Sub FTP_Start
Dim locFile As String
Msgbox(Arquivos.size, "arquivos.size")

For i = 0 To Arquivos.Size - 1
Dim p As Arquivos
p.arquivo = Arquivos.Get(i)
locFile = p.arquivo
locFile = locFile.SubString2(locFile.IndexOf("=") + 1,locFile.IndexOf(","))
FTP.DownloadFile("/VENDEDOR_003/V003/" & locFile, True, "PontoV", locFile)
Next
End Sub