http://www.ousob.com --- Legacy Redefined #include <io.h> #include <stdlib.h> #include <extend50.h> CLIPPER b_isdir() { if( !ISCHAR(1) ){ _retl(0); return; } _retl( (access(_parc(1),00) == 0) ? 1 : 0 ); }