Public Sub ListAllFilez(Optional sPath As String, Optional IncludeSubfolders)

    Dim objFSO As Object
    Dim objFolder As Object
    Dim mySubFolder As Object
    Dim objFile As Object
    Dim ws As Worksheet
    Dim MaxRow, numFolders, IntCount  As Long
    Dim i As Integer
    Dim pi As New ProgressIndicator
    Dim gExt, wExt
    Dim st, sFileName, str As String
    Dim testName, testDate As Boolean
    Dim dt As Date
    Dim rx As Object
    Dim nameCount, dateCount, fileCount, count As Long

    nameCount = 0
    dateCount = 0
    Application.ScreenUpdating = False

     If objFSO Is Nothing Then
        Set objFSO = CreateObject("Scripting.FileSystemObject")
    End If

    If sPath = "" Then
    End
    End If

    Set ws = Sheet1
    MaxRow = 0
     'Get the folder object associated with the directory
    Set objFolder = objFSO.GetFolder(sPath)


    fileCount = Count_Files(sPath)''подсчитываем сколько всего файлов в подпапках
    count = objFolder.Files.count '' сколько файлов в выбранной папке

    If count <> 0 Then
      MaxRow = count + fileCount
    Else
      MaxRow = fileCount
    End If

       frmBrowse.Hide
       pi.Show "чтение файлов"
       pi.StartNewAction 1, 100, , , , MaxRow 


    For Each objFile In objFolder.Files

        If  UCase$(Right$(objFile.Name, 4)) = ".JPG" Or UCase$(Right$(objFile.Name, 4)) = ".JPEG" Then
        str = objFile.Name

        pi.SubAction , "Считан $index из $count", "$time"
        DoEvents

        ws.Cells(ws.UsedRange.Rows.count + 1, 1).Value = objFile.Name
        ws.Cells(ws.UsedRange.Rows.count, 2).Value = objFile.path
        ws.Range(Cells(ws.UsedRange.Rows.count - 1, 4), Cells(ws.UsedRange.Rows.count, ws.UsedRange.Columns.count)).FillDown

        testName = CheckName(str)

      If testName = True Then
          ''если название правльное, то проверяем дату
           If testDate = False Or dt > Date Then
                 dateCount = dateCount + 1
                 ws.Cells(ws.UsedRange.Rows.count, 1).Interior.ColorIndex = 43
           End If
      Else
          nameCount = nameCount + 1
          ws.Cells(ws.UsedRange.Rows.count, 1).Interior.ColorIndex = 3
      End If

        End If
    Next

If IncludeSubfolders Then

For Each mySubFolder In objFolder.subfolders
Call ListAllFilez(mySubFolder.path, True)
Next
End If


     'Clean up!
    pi.Hide
    Set objFolder = Nothing
    Set objFile = Nothing
    Set objFSO = Nothing
   Application.ScreenUpdating = True

    If nameCount = 0 And dateCount > 0 Then
     MsgBox "Файлы считаны. Есть " & dateCount & " файлов с неправильным форматом даты!"
     ElseIf nameCount > 0 And dateCount = 0 Then
     MsgBox "Файлы считаны. Есть " & nameCount & " файлов с неправильным названием!"
     ElseIf nameCount > 0 And dateCount > 0 Then
     MsgBox "Файлы считаны. Есть " & nameCount & " файлов с неправильным названием и " & dateCount & " файлов с неправильным форматом даты"
     Else
     MsgBox "Файлы успешно считаны!"

     End If



End Sub