Excluding specific file types from directory count

[BillTony]

Hi there,

I'm trying to exclude specific file types when doing a count within folders in a specific directory.

The code below works when the file is NAMED, but only when.

I need some guidance on how wildcards would be used in a situation like this.

In addition, I would GREATLY appreciate some help on excluding multiple (ex; .doc, .accdb, etc.) file types within the same routine.

Folder_Location = "some directory…"
    Set F_S_O = CreateObject("Scripting.FileSystemObject")
    Last_Row_ColA = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
    For Loop_Thru = 2 To Last_Row_ColA
 
    AcctNo_Searched = Folder_Location & Range("A" & Loop_Thru).Value
    Set Object_Files = F_S_O.getfolder(AcctNo_Searched).Files
    File_Count = Object_Files.Count
      
    For Each Ob_Ject In Object_Files
        If Ob_Ject.Name = "Thumbs.db" Then
            File_Count = File_Count - 1
        End If
        Next Ob_Ject
            Range("C" & Loop_Thru).Value = File_Count
        Next
   
End Sub

Thanks in advance!

 

[Fluff]

How about

If Ob_Ject.Name like "*.db" Then

 

[BillTony]

Thanks for a awesome, and rapid solution!

I'm still having some issues with excluding multiple file types, though.

Can it be done within the SAME If/Then statement, or must it be accomplished as shown below?

If Ob_Ject.Name Like "*.db" Then
            File_Count = File_Count - 1
        End If
        If Ob_Ject.Name Like "*.docx" Then
            File_Count = File_Count - 1
        End If
    Next Ob_Ject

 

[Fluff]

You can do it like this

With Ob_Ject
    If .Name Like "*.db" Or .Name Like "*.docx" Then
        File_Count = File_Count - 1
    End If
End With

adding as many Or as you need (I'm not sure if there is a limit).
If you want to exclude all word files regardless you could change *.docx to *.doc*

 

[BillTony]

Thanks again for such a effective and timely solution!

 

[Fluff]

Glad to help & thanks for the feedback