smartFTP compatibility with Compact Framework v2.0

Imports sfFTPLib



Public Class smartFTPTest1



	Public Shared Sub main()

		Dim myFTPServices As New FTPServices

		If (myFTPServices.EstablishConnection()) Then

			Console.WriteLine("Successful!!")

		End If



		MsgBox("I am here!!!", MsgBoxStyle.ApplicationModal)

	End Sub





	Public Class FTPServices



		Dim strUsername As String = "username"

		Dim strPassword As String = "********"

		Dim strServer As String







		'Public objFTP As New sfFTPLib.SFTPConnection	   





		Dim objFTP As sfFTPLib.FTPConnectionMTAClass = New sfFTPLib.FTPConnectionMTA





		'objFTP = New sfFTPlib.FTPConnectionMTA



		Public Function EstablishConnection() As Boolean



			' ---------------------------------------------------------------------------------

			' Function - FTPServices.EstablishConnection

			' Written by - Syd O

			' Created on - 27 May '08

			' Last Update -

			' Function Purpose - To establish connection to FTP Server Securely

			' ---------------------------------------------------------------------------------



			If vbTrue Then ' Currently a Stub for testing & evaluation. ALWAY WILL RETURN TRUE



				' note Server is Gene6 FTP and is configured to accept Explicit SSL on port 21

				' The server operates with SmartFTP client and has no issues we are aware of



				strServer = "www.anSFTPwebsite.com" ' Only For Testing



				objFTP.Host = strServer

				objFTP.Port = 22

				objFTP.Protocol = sfFTPLib.enumProtocol.ftpProtocolSSLExplicit

				objFTP.Username = strUsername

				objFTP.Password = strPassword

				objFTP.MLST = True

				objFTP.Passive = True





				'objFTP.ClientHostname = System.Environment.MachineName

				'objFTP.Proxy.Type = enumProxyType.ftpProxyTypeNone

				'objFTP.Client = "VBExpress"

				'objFTP.LogFile = System.Environment.MachineName + ".log"



				Select Case objFTP.Connect()



					Case enumError.ftpErrorSuccess

						MsgBox("Connected")



					Case Else

						MsgBox(enumError.ftpErrorConnect.ToString)



				End Select



			End If



		End Function



	End Class



End Class