×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Microsoft: FoxPro FAQ

Program Source Code

How to test if a directory exists and/or create directories by rob444
Posted: 5 Nov 04 (Edited 26 Dec 06)

From the FNKSHN 1.01 library..

CODE

* 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


Example call to this function:

=TMKDIR("C:\MyDir")

Back to Microsoft: FoxPro FAQ Index
Back to Microsoft: FoxPro Forum

My Archive

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close