Private Sub Command1_Click()
  With CommonDialog1
    .CancelError = True
    .Filter = "Alle Dateien (*.*)|*.*"
    .ShowOpen
    If Err = 0 Then
        lvwFiles.ListItems.Add 1, , .FileTitle
        lvwFiles.ListItems.Add 2, , .FileName
    End If
  End With
End Sub