ListBoxに選択したファイルのパスを表示

Question

Windowsエクスプローラを使用して、VBAで選択したファイルの名前またはパスを表示したいとします。

これまで私が行ってきたことは、エクスプローラを開き、ファイルを選択することができますが、ファイルの名前/パスが表示されません。ここで

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

が完成したコードです：

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