'Sub Process_Globals -> Dim FTP As FTP
Dim TextWriter1 As TextWriter
TextWriter1.Initialize(File.OpenOutput(File.DirInternal , "FILE.TXT", False))
Dim RXT01 As String
RXT01=""
TextWriter1.WriteLine(RXT01)
TextWriter1.Close
FTP.PassiveMode=True
FTP.Initialize("FTP", "ftp.xxxxxxxx.com.br", 21 , "xxxxxxxxx.com.br", "#######")
Dim sf As Object = FTP.UploadFile(File.DirInternal, "FILE.TXT", False, "/")
Wait For (sf) ftp_UploadCompleted (ServerPath As String, Success As Boolean)
Log(LastException.Message)