set dirname /var/cti/adm/APP
if {[file exist $dirname]} {
# check that it's a directory
if {! [file isdirectory $dirname]} {
puts "$dirname exists, but it's a file"
}
} else {
file mkdir $dirname
}
ou
if {[catch {file mkdir $dirname} err opts] != 0} {
puts $err
}