Code:

proc timed:upload {m h d m y} {global ftpset ftpx [open "|ftp -n $ftp(host)" w]puts $ftpx "user $ftp(user) $ftp(pass)"puts $ftpx "bin"foreach file [lsort [glob -directory $ftp(dir) *]] {if { [file readable $file] && [file isfile $file]} {puts $ftpx "put $file ${ftp(updir)}${file}"putlog "${ftp(updir)}${file}"}}puts $ftpx "quit"close $ftpxputlog "FTP: all files in $ftp(dir) uploaded successfuly to $ftp(host)"}