Set fs = Application.FileSearch
With fs
    .LookIn = ThisWorkbook.Path
    .Filename = "*.xls"
    If .Execute > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
        " file(s) found."
        For i = 1 To .FoundFiles.Count
            Sheets("Ëèñò1").Range("A1").Offset(i - 1, 0).Value = .FoundFiles(i)
            
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With