File count and
folder size analysis process
Computer Efficiency Section
Possibly extend the lifespan of your computer or server
Computing Efficiency Section
Cloud Computing Section
File Count and Folder Size Analysis Process
How does the file count and folder size process work?
Run a Directory of the folders and files under analysis with a export pipe to a text file. e.g.
dir *.* /s > results.txt
process which reads the text file created above and builds a CSV file for speadsheet use
Open the newly created
file with you spreadsheet program
What does the Folder File Count CSV results look like?
Directory File Count
Directory Size in Bytes
What can the Folder File Count results be used for?
See which folders are using the most space.
See which folders have the most files.
Analyse a whole hard drive's files in folders in detail.
Information can be used to clean up a hard drive.
This could extend a computers useful life without an upgrade.
Check a file creation process is operating as expected.
Check a file copy process is operating as expected.
If used over time then trend analysis for files created and storage usage rates can be calculated.
Files Directory Process in Detail
The directory list creates a text file similar to shortened example below. The CountFilesInFolders.vbs reads the text file from top to bottom.
It looks for the Directory line and notes the the Directory Name
Ignores <DIR> lines
Counts file lines
Looks for the Files(s) lines and creates a results like: Directory Name, File Count of Directory and Folder Size in Bytes.
Volume in drive C is HDD
Directory of C:\
04/22/2010 09:18 AM <DIR> Desktop
01/02/2008 04:42 PM <DIR> Manuals
11/08/2005 09:40AM 133,442 additions.log
04/25/2010 10:43PM 0 cresults.txt
20 File(s) 42,187,801 bytes
Directory of C:\Program Files
12/19/2008 10:31 AM <DIR> Windows Media Player
0 File(s) 0 bytes
Directory of C:\Program Files\Windows Media Player
09/22/2004 06:45 PM 12,631 eula.txt
04/14/2008 10:12AM 4,639 mplayer2.exe
18 File(s) 4,215,605bytes
Count Files in Folders VBscript code listing
'Program to allow analysis of folder names, folder sizes and folder filecounts
' Program code provided by www.matthewb.id.au The code is provided free in a "as is" format. The concept may translate into other languages.
' Requirements: Windows computer with Internet Explorer 6 or later. Some computer knowledge of Command Prompt.
'Step 1 From a Command Prompt Start - Run cmd ,Run a Directory of the folder or drive in question
'E.g. dir *.* /s > results.txt
' dir c:\progra~1\*.* /s >presults.txt
' dir c:\*.* /s > cresults.txt
' Wait until the results file is built. Drive activity should be stopped and the result file not growing any more.
' This process may take up to 10 minutes to complete.
'Step 2 Run the CountFileInFolders.vbs program. The reads the above text file and creates a CSV file.
' One question is asked. Where is the directory file. E.g. presults.txt or c:\cresults.txt
' When the program is finished a message box appears. Click OK.
'Step 3 Open the Folder-File-Count-Log.csv created using your spreadsheet program.
' See the folders with the most files or largest in size.
' Check if file creation processes are operating as expected.
' Check if file copy processes are operating as expected.
' See where hard drive space is being used and delete the unwanted to extend the useful life of your computer.
Dim fso, WshShell, Resultfile, workingfile, Forout, Answer,DirectoryFile,DirectoryLine
Dim FolderName, FileCount, TheLength, DirectoryName, DirectoryCount,DirectoryByteSize
Dim Check1, Check2, Check3, Check4
Set fso = CreateObject("Scripting.FileSystemObject")
Set Resultfile = fso.opentextfile("Folder-File-Count-Analysis.csv",2,True) 'For writing ResultsLog
ResultFile.WriteLine "Directory Name, Directory File Count, Directory Size in Bytes"
Answer= inputbox("Enter the file path name extension of the directory listing","Folder File Count Process")
Set DirectoryFile = fso.opentextfile(Answer,1) 'For reading
DirectoryName = ""
DirectoryCount = 0
Do Until DirectoryFile.AtEndOfStream = True
DirectoryLine = DirectoryFile.ReadLine
MyArray= Split(DirectoryLine," ",-1,1)
IfCheck1 > 0 Then
DirectoryName= right(DirectoryLine, thelength-14)
If ArrayCount > 2 Then
If isdate(Myarray(0)) And Check2 = 0 Then
DirectoryCount= DirectoryCount + 1
If Check3 > 0 And DirectoryCount > 0 Then
Check4 = cstr(Myarray(arraycount-1))
Forout= DirectoryName + "," + cstr(DirectoryCount) + "," + DirectoryByteSize
DirectoryName = ""
DirectoryCount = 0
msgbox "Finished the reading of the Directory File.Folder-File-Count-Analysis.csv created in the local directory for analysis by spreadsheet program."
Program For Download
Create a new directory such as C:\Tools\CountFilesInFolders. Save the program file below into the new directory. Result file is saved in the same directory as the program file.
The is the Count Files In Folders VBscript program
If the above is prevented from downloading, then download the text file version and rename the extension to vbs.