icPath | input | character |
do viCount = 1 to num-entries(icPath) : FILE-INFO:FILE-NAME = entry(viCount, icPath). if length(right-trim(entry(viCount, icPath)), "CHARACTER":U) <> 0 then if FILE-INFO:FULL-PATHNAME = ? then /* propath directory not valid */ return false. end. return true.