VBA-How to modify code to count only files in a folder with a specific date?

Is it the date the file was created, the data it was last changed or last accessed?

The date it was created, but none of the files are modified after created.

Private Sub CountFilesInFolder(strDir As String, Optional strType As String)
'DEVELOPER: Ryan Wells (wellsr.com)
'DESCRIPTION: This macro counts the files in a folder and retuns the result in a msgbox
'INPUT: Pass the procedure a string with your directory path and an optional
' file extension with the * wildcard
'EXAMPLES: Call CountFilesInFolder("C:\Users\Ryan\")
' Call CountFilesInFolder("C:\Users\Ryan\", "*txt")
    Dim file As Variant, i As Integer
    If Right(strDir, 1) <> "\" Then strDir = strDir & "\"
    file = Dir(strDir & strType)
    While (file <> "")
        i = i + 1

         If Format(FileDateTime(strDir & File), "dd/mm/yyyy") = "01/01/2020" Then
            filedateCount = filedateCount + 1
        End If


        file = Dir
    Wend
    'MsgBox i
    Count = i
End Sub

You could try this function.

Function CountFilesInFolder(strDir As String, Optional strType As String, Optional dt As Date) As Long
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim cnt As Long

    If IsMissing(dt) Then
        dt = Date
    End If
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    Set objFolder = objFSO.getFolder(strDir)
    
    For Each objFile In objFolder.Files
        If objFile.Name Like "*" & strType And DateValue(objFile.DateCreated) = dt Then
            cnt = cnt + 1
        End If
    Next objFile
    
    CountFilesInFolder = cnt
    
End Function

Select allOpen in new window

You would call it like this to check the no of Excel files created on 2020-11-12 in the folder C:\Test.

MsgBox CountFilesInFolder("C:\Test", "*.bat*", DateSerial(2020, 11, 12))

Select allOpen in new window

I changed the date in the function to today and ran the below macro, but the count was blank.  Is a * needed to account for the time portion of the datetime?

Example of a file name.  IMW123456 Order Form.txt

Private Sub CountFilesInFolder(strDir As String, Optional strType As String)
'DEVELOPER: Ryan Wells (wellsr.com)
'DESCRIPTION: This macro counts the files in a folder and retuns the result in a msgbox
'INPUT: Pass the procedure a string with your directory path and an optional
' file extension with the * wildcard
'EXAMPLES: Call CountFilesInFolder("C:\Users\Ryan\")
' Call CountFilesInFolder("C:\Users\Ryan\", "*txt")
    Dim file As Variant, i As Integer
    If Right(strDir, 1) <> "\" Then strDir = strDir & "\"
    file = Dir(strDir & strType)
    While (file <> "")
        i = i + 1

         If Format(FileDateTime(strDir & file), "dd/mm/yyyy") = "11/27/2020" Then
            filedateCount = filedateCount + 1
        End If


        file = Dir
    Wend
    'MsgBox i
    Count = i
End Sub

Select allOpen in new window

Sub Get_Counts()
    Call CountFilesInFolder("G:\Orders\Submitted\", "*txt")
    MsgBox Count
End sub

Select allOpen in new window

I also tried the below code, but I get the following compile error.  "Wrong number of arguments or invalid property assignment"

MsgBox CountFilesInFolder("G:\Orders\Submitted\", "*.txt*", DateSerial(2020, 11, 27))

Select allOpen in new window

You are missing closing parentheses.

MsgBox CountFilesInFolder("G:\Orders\Submitted\", "*.txt*", DateSerial(2020, 11, 27))

Select allOpen in new window

I corrected the comment.  It is correct in my module.

What code are you using, how are you using it and how is it not working?

I running the "Get_Counts" macro and I'm getting the following error.  "Compile error: Wrong number of arguments or invalid property assignment"

Private Sub CountFilesInFolder(strDir As String, Optional strType As String)
'DEVELOPER: Ryan Wells (wellsr.com)
'DESCRIPTION: This macro counts the files in a folder and retuns the result in a msgbox
'INPUT: Pass the procedure a string with your directory path and an optional
' file extension with the * wildcard
'EXAMPLES: Call CountFilesInFolder("C:\Users\Ryan\")
' Call CountFilesInFolder("C:\Users\Ryan\", "*txt")
    Dim file As Variant, i As Integer
    If Right(strDir, 1) <> "\" Then strDir = strDir & "\"
    file = Dir(strDir & strType)
    While (file <> "")
        i = i + 1

         If Format(FileDateTime(strDir & file), "dd/mm/yyyy") = "11/27/2020" Then
            filedateCount = filedateCount + 1
        End If


        file = Dir
    Wend
    'MsgBox i
    Count = i
End Sub

Sub Get_Counts()
    MsgBox CountFilesInFolder("G:\Orders\Submitted", "*.txt*", DateSerial(2020, 11, 27))
End Sub

Select allOpen in new window

How do I modify it to use the date in cell A1?

I figured it out.

MsgBox CountFilesInFolder("G:\Orders\Submitted\", "*.txt*", Sheets(Sheets("Sheets("Sheet1"),Range("A1")

Select allOpen in new window

Do you want you to see the result in a cell on a worksheet?