Zeige Pfad der ausgewählten Dateien in ListBox

Question

Ich möchte Namen oder Pfade ausgewählter Dateien in VBA mit Windows Explorer sehen.

Hier ist, was ich bisher gemacht habe, es öffnet den Explorer und ermöglicht es, Dateien auszuwählen, aber die Namen/Pfad der Dateien anzuzeigen.

Private Sub CommandButton1_Click() 
    Dim fd As Office.FileDialog 
    Set fd = Application.FileDialog(msoFileDialogFilePicker) 
    With fd 
     .AllowMultiSelect = True 
     .Title = "Please select the file." 
     .Filters.Clear 
     .Filters.Add "All Files", "*.*" 

     If .Show = True Then 
     /// 
     ///here comes the part with showing the names in ListBox 
     /// 
     End If 
    End With 
End Sub 

Answer 1

Hier ist der fertige Code:

Public Sub CommandButton1_Click() 
    Dim i As Integer 

    Dim fd As Office.FileDialog 
    Set fd = Application.FileDialog(msoFileDialogFilePicker) 

    With fd 
     .AllowMultiSelect = True 
     .Title = "Please select the file." 
     .Filters.Clear 
     .Filters.Add "All Files", "*.*" 

     If .Show = True Then 
     For i = 1 To fd.SelectedItems.Count 
      ListBox1.AddItem fd.SelectedItems(i) 
     Next 
     End If 
    End With 
End Sub