[tuff]

[FTP_Pre-Command_Events]
stor = TCL c:\im\silly\i\want\to\overwrite.tcl

overwrite.tcl

proc silly_overwrite {} {
global args path ioerror
set filename [lindex $args 1]
if {[string match -nocase "foo.nfo" $filename]} {
if {[file exists "$path\\$filename"]} {
catch {file delete -force -- "$path\\$filename"} error
}
}
}
silly_overwrite

hey presto!