Private Sub Combo1_Click()
  Dim TmpDirList As Variant
  Dim LstItem As ListItem
  Dim TmpIcon As String
  Dim TmpDir As String
  Dim i As Long
 
  ' Wenn das erste Verzeichnis ermittelt ist muss es
  ' nicht gewechselt werden
  Screen.MousePointer = 11
  If Combo1.ListCount <> 1 Then
    TmpDir = ChangeDir(Combo1.Text)
    For i = 0 To Combo1.ListCount - 1
      If Combo1.List(i) = TmpDir Then
        Combo1.ListIndex = i
        Exit For
      End If
    Next i
  End If
 
  ' Verzeichnis-Informationen ermitteln
  TmpDirList = GetDirList
  With lvftp.ListItems
    .Clear
    If IsArray(TmpDirList) Then
      For i = 0 To UBound(TmpDirList)
        If Left$(TmpDirList(i, 0), 1) = "d" Then
          Set LstItem = .Add(, , TmpDirList(i, 3), _
            "OrdnerZu", "OrdnerZu")
        Else
          Set LstItem = .Add(, , TmpDirList(i, 3), _
            "Datei", "Datei")
        End If
        LstItem.SubItems(1) = TmpDirList(i, 1)
      Next i
    End If
  End With
 
  ' Liste sortieren
  Dim NextInsert As Long
  Dim TmpText As String
  Dim TmpSize As String
  Dim TmpItem As ListItem
 
  With lvftp
    .Sorted = True
    .Sorted = False
    For i = 1 To .ListItems.Count
      If .ListItems(i).SmallIcon = "OrdnerZu" Then
        TmpText = .ListItems(i).Text
        TmpSize = .ListItems(i).SubItems(1)
        .ListItems.Remove i
        NextInsert = NextInsert + 1
        Set TmpItem = .ListItems.Add(NextInsert, , _
          TmpText, "OrdnerZu", "OrdnerZu")
        TmpItem.SubItems(1) = TmpSize
      End If
    Next i
 
    If .ListItems.Count > 0 Then _
      .SelectedItem = .ListItems(1)
  End With
  Screen.MousePointer = 0
End Sub