Private Sub Command1_Click()
  On Error Resume Next
  With CommonDialog1
    .FileName = ""
    .CancelError = True
    .DialogTitle = "Bitte wählen Sie die Dateien"
    .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

' Dateiliste in TXT-Datei speichern
Private Sub Command2_Click()
  Dim F As Integer
  Dim i As Long
 
  F = FreeFile
  Open "d:\temp\dateien.txt" For Output As #F
  For i = 0 To List1.ListCount - 1
    Print #F, CStr(i + 1) & ". " & List1.List(i)
  Next i
  Close #F
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de