[tuff]

hmmm


proc unrarit {} {
global pwd
set 1stfilename ""
set contents [glob -nocomplain -directory [resolve pwd $pwd] *]
if {![string match -nocase "*100%" $contents]} {return}
foreach entry $contents {
if {[string match -nocase "*.rar" $entry]} {
set 1stfilename $entry
break
}
if {$1stfilename == ""} {
if {[string match -nocase "*.001" $entry]} {
set 1stfilename $entry
break
}
}
if {$1stfilename == ""} {return}
set parent [resolve pwd "$pwd/.."]
catch {set what [exec c:/program files/path/to/unrar/unrar.exe -x $1stfilename $parent]} what
}
unrarit


i aint tested this, it prolly wont work correctly, but youll get the gist of using this itcl onuploadcomplet