tellen van aantal files

[wacco]

Hallo,

Ik gebruik onderstaande code, al langere tijd in excel 2007 :

Private Function CountFiles(strDirectory As String, Optional strExt As String = "*.*") As Double

'Functie : tellen van aantal files in een map. Als er een bepaalde extensie is aangegeven, dan alleen
'die files tellen Opdracht is : countfiles

    Dim objFso As Object
    Dim objFiles As Object
    Dim objFile As Object
    
    On Error GoTo EarlyExit
    
    'bepalen tellen van files in map
    Set objFso = CreateObject("Scripting.FileSystemObject")
    Set objFiles = objFso.GetFolder(strDirectory).Files

    'tellen van files die vodoen aan de ingevoerde extensie
    If strExt = "*.xls; *.doc; *.xlsx; *.docx" Then
    CountFiles = objFiles.Count
        
    Else
        For Each objFile In objFiles
            If UCase(Right(objFile.Path, (Len(objFile.Path) - InStrRev(objFile.Path, ".")))) = UCase(strExt) Then
                CountFiles = CountFiles + 1
            End If
        Next objFile
    End If

EarlyExit:
    'Fout afhandeling
    On Error Resume Next
    Set objFile = Nothing
    Set objFiles = Nothing
    Set objFso = Nothing
    On Error GoTo 0
End Function

Dit werkte perfect.
Helaas blijkt het niet te werken in de office 365 versie.
Ik krijg dit niet voor elkaar, en ik begrijp ook niet waarom dit in een nieuwere versie niet werkt
Is er misschien iemand die mij kan helpen?

Gr,