"exec" instead of "glob" to crate a list of file in windows

[AnsBGA]

At the compile time I want to create a list of image files and can not use glob as the image files are also gets wraped in the execuatable.

This works on UNIX"
set imageList [list ‘echo images/*.gif‘]

What is the equivalent of this in Windows? How can I use exec dir [ file join ..... ] or some other clever way to do it.

Thanks,
Nick

 

[marsd]

set ok [dir c:/images/*.gif]

foreach n $ok {
puts [file tail $n]
}
Remember the stupid 8.3 rule.
ex:dir c:/progra~1/
Seems to work okay.

 

[AnsBGA]

Thanks, Now the next question is how to convert a file name to short names for 8.3 stupid rule. I am not a windos user.

The dir name may have long names and spaces. e.g.
c:/fdsdafd sfds/asfdsf/*.gif

Is there a way in Tcl to convert this string to short names. eg. the middel line in the folling code.

set long_name dir [ file join ..........]
short_name [convert_to_shrot_name $long_name]
set ok [dir $short_name]

Thanks,
nick

 

[marsd]

Yep:
proc eightthree {nme} {
if {[string length $nme] > 6} {
set nme "[string range $nme 0 5]~1"
}
return $nme
}