How many Files in Folder?

[Access]

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]

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]

very nice! thx!

[metroid]

Why use incr?

Code: Select all

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

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