/* DIRMAKE.PRG
Example of how to use the DIRMAKE() function.

Syntax: DIRMAKE(expC)
expC: The new directory name.  Include full path if
	the directory is to be created somewhere other than
	the current directory.

DIRMAKE() will return 0 if success, -1 if failure.
If failure, check DOSERROR() for error number.
*/

sDirName = 'c:\newdir'

nRetVal = dirmake(sDirName)

if (nRetVal <> 0)
	warning("DOS Error", "DOS error " + alltrim(str(doserror())) + " encountered.", 385)
endif