* TEST and create DIRECTORY
FUNCTION TMKDIR
PARAMETERS _TDIR
PRIVATE err
err = ispath(_TDIR)
if err<>0
 err = makdir(LEFT(_TDIR,LEN(_TDIR)-1))
 if err<>0
   ? _TDIR+' directory doesn't exist and couldn't be made!!!'
 else
   iserr = .f.
 endif  
endif
RETURN  err


* MAKDIR(<directory>)
*
* attempts to make <directory>.  returns .t. if sucessful.
*
function makdir
parameters lcdir
  if type("LCDIR")#"C" or empty(lcdir)
    return .f.
  endif
  lcdir=trim(lcdir)
  if right(lcdir,1)="\"
    lcdir=substr(lcdir,1,len(lcdir)-1)
  endif
  !md &lcdir
return ispath(lcdir)

* ISPATH(<path>)
*
* Checks if <path> is a valid path.
*
function ispath
parameter lcpath
private lcpath, lftmp1, lnerr, ladir, lcsetdefa, lconerr, lnerr
  lnerr=0
  lcsetdefa=set("DEFAULT")+sys(2003)
  lconerr=on('error')
  on error lnerr=error()
  set defa to (lcpath)
  on error &lconerr
  set defa to (lcsetdefa)
return lnerr