Barattalo

This ASP function counts files of a specified extension inside a folder: this is done by creating a file system object, open folder and scan files for matching the extension. The match of the extension is made without regular expression but using string functions: Right, Len and Ucase.

Function countFiles(path,ext)
	Dim fs, folder, c
	c = 0
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set folder = fs.GetFolder(path)
	For Each item In folder.Files
		If UCase(Right(item.Name, Len (ext))) = UCase(ext)) Then c=c+1
	Next
	countFiles = c
End Function

Related posts:

1. Calculate dir size recursively with PHP (and count files)
2. ASP equivalent to PHP Ucfirst function
3. Recursive remove directory (RMDIR) in PHP
4. Recursive chmod on files and directory

Tags: dir, file, filesystemobject, getfolder