Problems creating a list of directories on windows 1

[Ati2ude]

Hi all,

I have tried this several ways and can not seem to get what I am looking for. What I want to do is create a list of sub directories under a specified directory. I will then iterate thru each of them, looking for specific files.

Here is what I have tried.
set processdir [concat $rootdir/processes]
set process_list [exec ls $processdir]
foreach process $process_list {
echo "******************************************"
echo $process
echo "******************************************"

}

TIA for any help you can lend.

Ati2ude

 

[feherke]

Hi

set process_list [exec [red]ls[/red] $processdir]

Very few Windows have [tt]ls[/tt] command...
[ol]
[li]get a list of all files in the directory with [tt]glob[/tt][/li]
[li]check each file with [tt]file type[/tt] to see if is a directory[/li]
[/ol]

Feherke.

http://rootshell.be/~feherke/

 

[Ati2ude]

Will the glob command give me a listing of sub-directories only? I need the sub-dirs first.


Ati2ude

 

[Ati2ude]

Never mind I see what you are saying. Let me play with this a few.

Thanks for the quick reply.

Ati2ude

 

[mucklow]

You can also use cmd dir...

set your_var [exec cmd /C dir /B "$dir"]

 

[ulis]

To list all subirs from dir, indenting at each level:

  proc subdirs {dir {level 0}} \
  {
    puts [string repeat " " $level]$dir
    incr level
    foreach subdir [glob -dir $dir -type d -nocomplain *] \
    {
      subdirs $subdir $level
    }
  }
  
  subdirs /

More on glob at

http://wiki.tcl.tk/glob

HTH

ulis