application.filesearch zamena

Code:

Sub btnRadi_Click()
    Dim lngCount As Long
    Dim folder As String
    ' Otvara File dialog open za izbor foldera gde vrsiti pretragu
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Show
        ' Prikazuje putanju svakog selektovanog foldera
        For lngCount = 1 To .SelectedItems.Count
            folder = .SelectedItems(lngCount)
        Next lngCount
    End With
    ' ako je odabrano Cancle procedura se prekida
    If lngCount = 1 Then
        Exit Sub
    End If
 
    With Application.FileSearch
        .NewSearch
        .LookIn = folder
        .SearchSubFolders = True
        .MatchAllWordForms = True
        .FileType = msoFileTypeExcelWorkbooks
        If .Execute() > 0 Then
            MsgBox "Pronadjeno je " & .FoundFiles.Count & _
            " fajl(ova)."
            For i = 1 To .FoundFiles.Count
                pron = .FoundFiles(i)
                k = 1
                Do Until Left(Right(pron, k), 1) = "\"
                    k = k + 1
                Loop
                pron = Right(pron, k - 1)
                Cells(i, 1) = pron
            Next i
        Else
            MsgBox "Nije pronadjen nijedan fajl."
        End If
    End With
End Sub

Code:

Sub KopirajSheetsIzDatoteka()
    Dim myDir As String, fn As String

    myDir = "C:\Temp" 'path staza do foldera u kojem se nalaze datoteke
    fn = Dir(myDir & "\*.xls") 'extenzija za datoteke iz kojih se kopiraju Sheets

    Do While fn <> ""
        With Workbooks.Open(myDir & "\" & fn)
            With .Sheets("Sheet1") 'Sheet koji se zeli kopirati iz datoteka u folderu
                .Name = "" & fn & "" 'naziv kopiranog sheeta je tipa ime.xls
                .Copy After:=ThisWorkbook.Sheets(1)

            End With
            .Close False
        End With
        fn = Dir
    Loop
End Sub

Code:
Sub KopirajSheetsIzDatoteka()
    Dim myDir As String, fn As String

    myDir = "C:\Temp" 'path staza do foldera u kojem se nalaze datoteke
    fn = Dir(myDir & "\*.xls") 'extenzija za datoteke iz kojih se kopiraju Sheets

    Do While fn <> ""
        With Workbooks.Open(myDir & "\" & fn)
            With .Sheets("Sheet1") 'Sheet koji se zeli kopirati iz datoteka u folderu
                .Name = "" & Left(fn,Len(fn)-4) & "" 'naziv kopiranog sheeta je tipa ime.xls
                .Copy After:=ThisWorkbook.Sheets(1)

            End With
            .Close False
        End With
        fn = Dir
    Loop
End Sub

Code:
.Name = replace(fn,".xls","")