FlashFXP Forums - View Single Post

Harm · 06-01-2006, 11:09 AM

It's ok as long as you also edit the proc that's supposed to remove the previous dirtags :P

Try the following piece of code (which shouldn't be far away from proc createtag in ioTOOLKIT.itcl):

Code:

proc deletetag {path} {
    global ioB
    set dirs [glob -nocomplain -types d -directory $path "*"]
    foreach dir $dirs {
        if {[string match "*$ioB(ssn)*" $dir]} {
            catch {file delete -force $dir}
        }
    }
}

Keep in mind that this will delete all directories containing your short site name. It shouldn't be too hard to create a safer matching pattern though.

06-01-2006, 11:09 AM
Harm Too much time... Join Date: Jul 2003 Posts: 1,430	It's ok as long as you also edit the proc that's supposed to remove the previous dirtags :P Try the following piece of code (which shouldn't be far away from proc createtag in ioTOOLKIT.itcl): Code: proc deletetag {path} { global ioB set dirs [glob -nocomplain -types d -directory $path ""] foreach dir $dirs { if {[string match "$ioB(ssn)" $dir]} { catch {file delete -force $dir} } } } Keep in mind that this will delete all* directories containing your short site name. It shouldn't be too hard to create a safer matching pattern though.