vba count # of files in folder

[zrx1200]

Hello,

I'm looking at being able to count the # of files in a folder that match a varible.

I only need the first portion of the filename. example filename is Apr 4 6 00 0.09 and I only need the Apr 4 portion which is the date.

I will then compare the current date (which is the varible) in code to the filename portion and count how many files are present.

The path for folder is constant.

Any thought folks?

Thanks,
Ralph

 

[xenou]

Re: SOLVED Re: vba count # of files in folder

There's more than one way to get a list but as an example if the criteria is in cells A2, A3, and A4 then you can add the counts in B2, B3, and B4:

Sub test()
    
    Dim fso As Object 'Scripting.FileSystemObject
    Dim fldr As Object 'Scripting.Folder
    Dim f As Object 'Scripting.File
    Dim lookFor As String
    Dim c As Range
    
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    With fso
        Set fldr = .GetFolder("C:\myTemp")
        For Each c In Range("A2:A4")
            lookFor = c.Value
            For Each f In fldr.Files
                If f.Name Like "*" & lookFor & "*" Then
                    c.Offset(0, 1).Value = c.Offset(0, 1).Value + 1
                End If
            Next f
        Next c
    End With
    
End Sub

Result:
----------------------------
| FileNameCriteria | Count |
----------------------------
|            Apr 4 |     2 |
|            Apr 5 |     2 |
|           Apr 10 |     3 |
----------------------------