How many Files in Folder?

Access · Post by **Access** » Mon Aug 28, 2006 10:10 am

I want to know how many files with ending *.moep are in /filebase/ folder...

How? ^^ (Too short? dont know how to explain...)

2nd question - no extra thread:

how to delete all files with ending *.moep in /filebase/ folder...?

krimson · Post by **krimson** » Mon Aug 28, 2006 10:21 am

for the first question:

Code: Select all

set filenum 0
foreach entry [glob -directory /filebase/ *.moep] {
  incr filenum
}
return $filenum

and for the second:

Code: Select all

foreach entry [glob -directory /filebase/ *.moep] {
  file delete $entry
}

Access · Post by **Access** » Mon Aug 28, 2006 11:21 am

very nice! thx!

metroid · Post by **metroid** » Mon Aug 28, 2006 1:56 pm

Why use incr?

Code: Select all

proc filecount {file} {
  return [llength [glob -nocomplain $file]]
}

Could be used with [filecount /home/myuser/*.something]