[bizniz]

what exactly are you trying to do?? if u wanna make anohter file some where else, say .ioFTPD.message in another dir so it has all the release listed in it when dir is entered, try

set filename "c:/site/r00t/_newdirs/.ioFTPD.message"

proc extra_list {release} {global filename
 if {[catch {set fd [open $filename a+]} error] == 0} {
  catch {puts $fd $release}
  catch {close $fd}
  return 0 
 }
}

if {$newdir(style)} {
 extra_list [format %-76.76s $release]
} else {
 iputs "$newdir(pre)  \[[format %02s [expr $x +1]]\] [format %-7s [lrange $old 0 1]] [format %-7s $owner] [format %3s $files]F [format %7s [fixmeg $size]] $release"
}