Private Sub ListView1_DblClick()
 
  '----------------------------------------------------------------------------
  ' ---------
  'PARAMETER : keine
 
  'RETURNS : keine
 
  'ERRORS : keine
 
  'BESCHREIBUNG : - Bei Doppelklick auf einen Eintrag des 
  ' ListView-Steuerelementes je
  '                 nach Symbol eine Ebene rauf oder runter
  '----------------------------------------------------------------------------
  ' ---------
 
  Dim oItem As ListItem
 
  'Fehlerbehandlungsroutine
  On Error GoTo ErrorHandler
 
    Set oItem = ListView1.SelectedItem
 
    If Not oItem Is Nothing Then
      ' Doppelklick Ordner?
      If oItem.SmallIcon = 3 Then
        ' Eine Ebene höher
        VBEX_FTPChangeDir hSocket, "../"  ' !!! Hier dann das Problem, dass er 
        ' nicht   die  Ebene hoeher geht
        FTP_InitList
 
      ElseIf oItem.SmallIcon = 1 Then
        ' In Ordner wechseln
        If VBEX_FTPChangeDir(hSocket, oItem.Text) Then
          ' Liste neu einlesen
          FTP_InitList
        End If
 
        ElseIf oItem.SmallIcon = 2 Then
        Call cmdDownload_Click
      Else
        ' Datei
      End If
    End If
 
    ' Liste neu einlesen
    '***FTP_InitList
 
  Exit Sub
 
ErrorHandler:
  MsgBox strError & " (Funktion: `ListView1_DblClick()´) "
 
End Sub