Sub rechfich()
With Application.FileSearch
.LookIn = "C:\"
.SearchSubFolders = False
.Filename = "*.mp3"
.FileType = msoFileTypeAllFiles
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Range("A" & i + 1).Value = .FoundFiles(i)
Next i
End If
End With
End Sub