'Dateien Öffnen
Private Sub Command1_Click()
On Error Resume Next
  With CommonDialog1
    .FileName = ""
    .CancelError = True
    .DialogTitle = "Please Select ADX file"
    .Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or _
      cdlOFNHideReadOnly
    .Filter = "CRI ADX Audio file (*.adx)|*.adx"
    .ShowOpen
    If Err.Number = 0 Then
      Dim Dateien() As String
      Dim x As Long
 
      Dateien = Split(.FileName, Chr(0))
      List1.Clear
      If UBound(Dateien) = 0 Then
        List1.AddItem Mid$(.FileName, InStrRev(.FileName, "\") + 1)
      Else
        For x = 1 To UBound(Dateien)
          List1.AddItem Dateien(x)
        Next x
      End If
    End If
  End With
End Sub

'Liste Speichern
Private Sub Command3_Click()
Dim F As Integer
  On Error Resume Next
  With CommonDialog2
    .CancelError = True
    .Flags = cdlOFNOverwritePrompt
    .Filter = "ACX List file (*.fls)|*.fls"
    .ShowSave
 
  F = FreeFile
  Open "Listfile.fls" For Output As #F
  For i = 0 To List1.ListCount - 1
    Print #F, List1.List(i)
  Next i
  Close #F
  End With
End Sub

      Dateien = Split(.FileName, Chr(0))
      'List1.Clear   <--- DAS WAR DAS PROBLEM *lol*
      If UBound(Dateien) = 0 Then
        List1.AddItem Mid$(.FileName, InStrRev(.FileName, "\") + 1)