For i As Integer = 0 To Me._ftp.NumFilesAndDirs - 1
    If Not Me._ftp.GetIsDirectory(i) Then
         Dim File As String = Me._ftp.GetFilename(i)   'Hier liefert er den 
         ' falschen Dateinamen
            'If Me._ftp.GetFile(File, Host.Pfad & "\" & IIf(Host.Datei = "*.*", 
            ' File, ost.Datei).ToString) Then
             'Else
              'MessageBox.Show("Fehler")
           End If
      End If
Next