FXP with SFTP

		Dim objFXP As New sfFTPLib.FTPFXP

		Dim ftpSource as New sfFTPLib.FTPConnectionMTA

		Dim ftpDest as New sfFTPLib.FTPConnectionMTA

		Dim enumReturned As sfFTPLib.enumError



                        ftpSource.Host = "testServerOne"

                        ftpSource.Port = 21

                        ftpSource.Username = "test"

                        ftpSource.Password = "test"

                        ftpSource.Passive = true

                        ftpSource.DataProtection = enumDataProtection.ftpDataProtectionPrivate



                        ftpDest.Host = "testServerTwo"

                        ftpDest.Port = 21

                        ftpDest.Username = "test"

                        ftpDest.Password = "test"

                        ftpDest.Passive = false

                        ftpDest.DataProtection = enumDataProtection.ftpDataProtectionPrivate



		objFXP.Source = _objFTPS

		objFXP.Destination = objDestination



		enumReturned = objFXP.FXPFile(fileName, fileName, 0, 0)



		If enumReturned = sfFTPLib.enumError.ftpErrorSuccess Then

			System.Console.writeLine("Success")

			'ftpSource .Continue()

			'ftpDest .Continue()

		Else

			System.Console.writeLine("Error Ocurred= " & objFXP.LastError.ToString)

		End If