Dim i As Integer
Dim lPos As Long
Dim sFile As String
 
With List1
  For i = 0 To .ListCount - 1
    sFile = .List(i)
 
    <font color=green>' Pfad abschneiten</font>
    lPos = InStrRev(sFile, "\")
    If lPos > 0 Then sFile = Mid$(sFile, lPos + 1)
 
    <font color=green>' Extension abschneiten</font>
    lPos = InStrRev(sFile, ".")
    If lPos > 0 Then sFIle = Left$(sFIle, lPos - 1)
 
    <font color=green>' und ab in die zweite ListBox</font>
    List2.AddItem sFile
  Next i
End With