Option Explicit
Sub DosyaIsimleri()
Dim i As Integer
With Application.FileSearch
.NewSearch
.LookIn = "c:\"
.Filename = "*.jpg"
.SearchSubFolders = True
.MatchTextExactly = True
.Execute
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Cells(i, 1) = .FoundFiles(i)
Next i
End If
End With
End Sub