FreeVBCode code snippet: Count Files and Folders Using the FileSystem Object