If end sub Note that at the top of ExamineWeb.asp we include a file called BarChart.asp . I will not be discussing the specifics of this file. I will, however, provide the code I used for BarChart.asp at the end of this article. The function TraverseFolders begins with a quick check to see if the folder's name begins with an underscore. We don't want to traverse through these, so if we hit a folder with a starting underscore, we'll skip it.
Next loop is used to iterate through each file in the folder specified by objFolder .
Next, we check whether or not a key already exists in the dictionary object objDict using the Exists method. Recall that the key for both objDict and objSizeDict are the file extensions. So, if we encounter a file that has an extension we've not seen before, it's added to the dictionary objDict with an initial value of 1. Also, it's added to the objSizeDict dictionary, with an initial value equal to file's size in bytes. Once we've iterated through all of the files in the folder specified by objFolder , objDict will contain a key for each unique file extension, and each key's value will contain the number of files that contain that extension.