VBA code: XML-bestanden tellen in een map

On Error GoTo Err_Count_XML

Dim strDir As String
Dim fso As Object
Dim objFiles As Object
Dim obj As Object
Dim lngFileCount As Long

strDir = "C:\Temp\XML"
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFiles = fso.GetFolder(strDir).files
lngFileCount = objFiles.Count

For Each objF In objFiles
If objF.Name Like "*.xml" Then
Me.aantal_XML = lngFileCount
End If
Next objF

Me.Refresh

If Me.aantal_XML = "" Or IsNull(Me.aantal_XML) Then
Me.aantal_XML = 0
End If

Err_Count_XML:
Me.aantal_XML = 0

End Sub

For Each objF In objFiles
    If Right(objF.Name,3) = "xml" Then
        Me.aantal_XML = Me.aantal_XML +1
    End If
Next objF

For Each objF In objFiles
    If Right(objF.Name Like,3) = "xml" Then
        Me.aantal_XML = Me.aantal_XML +1
    End If
Next objF

    myFile = Dir("C:\Temp\XML\*.xml")
    Do While Not myFile = ""
        i = i + 1
        myFile = Dir
    Loop
    
MsgBox i