Dim nmf As String
Dim nmdir As String
Dim lngPath As Integer
Dim strPath As String
lstFilesCount.RowSource = ""
lstFilesRename.RowSource = ""
strPath = Me.txtResult
lngPath = Len(strPath)

With Application.FileSearch
    .NewSearch
    .LookIn = strPath
    .SearchSubFolders = True
    .FileName = "RUM_?????_??????_*.xml"
    If .Execute(SortBy:=msoSortByFileName, _
        SortOrder:=msoSortOrderAscending) >  0  Then
    For i =  1  To .FoundFiles.Count
        nmf = Right(.FoundFiles(i), Len(.FoundFiles(i)) _
        - lngPath -  1 )
    
    lstFilesCount.AddItem nmf
    txtCountFound.Value = "Âñåãî " & .FoundFiles.Count & " ôàéëîâ"
    Next i
    End If
End With