请教:如何用tcl脚本语言编写一个统计文件个数的程序?

请问:怎么用tcl脚本语言编写一个统计文件个数的程序???
比方说我   d:\temp目录下有5个.txt文件,6个.exe文件,7个.doc文件.

我要用tcl编写程序:

首先统计总共有18个文件.
分别为:5个.txt
              6个.ext
              7个.doc

------解决方案--------------------
我勉强写一下吧：

set path ". "
set files [glob "$path/* "]

set total 0
set txt 0
set exe 0
set doc 0

foreach f $files {
if {[file isfile $f]} {
set total [expr $total + 1]
if {[string match *.txt $f]} {
set txt [expr $txt + 1]
}
if {[string match *.exe $f]} {
set exe [expr $exe + 1]
}
if {[string match *.doc $f]} {
set doc [expr $doc + 1]
}
}

}

puts stdout "共 $total 个文件\n "
puts stdout "$txt 个txt\n "
puts stdout "$exe 个exe\n "
puts stdout "$doc 个doc\n "