Public Function CountFiles (Directory As String) As Long


    Dim FileSystem, Folder
    
    Set FileSystem = CreateObject("Scripting.FileSystemObject")
    Set Folder = FileSystem.getfolder(Directory)
    
    CountFiles = Folder.Files.Count
End Function