* 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