Public Sub OpenFTPConnection(ByRef request As Net.FtpWebRequest, ByVal Path As _
  String, Optional UseSSL As Boolean = False, Optional PortNr As Integer = 21, _
  Optional Method As String = "LIST")
 
			Dim sFileList As New List(Of String)
			Dim response As FtpWebResponse
			Dim ftpURI As System.Uri
			'Mach eine kurze Pause
			System.Threading.Thread.Sleep(1500)
			_CurrentURIPath = "ftp://" & FTP_REMOTE_SERVER_ADDR & Path
			ftpURI = New System.Uri(_CurrentURIPath)
 
			request = CType(Net.FtpWebRequest.Create(ftpURI), FtpWebRequest)
			request.Method = Method
			request.Credentials = New Net.NetworkCredential(FTP_LOGIN_USER, _
  FTP_LOGIN_PWD)
			request.KeepAlive = False
			request.Proxy = Nothing
			request.UsePassive = True
			request.EnableSsl = UseSSL
			request.UseBinary = True
			If UseSSL Then
				ServicePointManager.ServerCertificateValidationCallback = AddressOf _
  AcceptAllCertifications
				ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls
				ServicePointManager.FindServicePoint(ftpURI)
			End If
 
			System.Threading.Thread.Sleep(250)
			If FTP_REQUEST Is Nothing Then
				response = CType(request.GetResponse, FtpWebResponse)
				eNotif.OutMessage(response.WelcomeMessage)
			Else
				ExecCmd(request)
			End If
			FTP_REQUEST = request
 
		End Sub
		Public Sub ExecCmd(ByVal request As FtpWebRequest)
			eNotif.OutMessage(getStatusDescription(request))
		End Sub
		Public Function getStatusDescription(ByRef request As FtpWebRequest) As String
			Dim response As FtpWebResponse
			Try
				If request IsNot Nothing Then
					response = CType(request.GetResponse, FtpWebResponse)
					Return response.StatusDescription
				Else
					Throw New Exception("Err: No valid request object found")
				End If
			Catch ex As Exception
				_LogError.WriteError(ex)
				MsgBox(ex.Message)
			End Try
		End Function

__________________


Heute ist nicht mein Tag.