MAKEDIR() Функция определенная пользователем, создает каталог, если его не существовало, только для FoxPro 2.6 DOS

MAKEDIR (cDirName)
Тип возвращаемого значения числовой
Параметры
Первый параметр cDirName символьный тип, имя каталога, если каталог уже существует, возвращается 1,
если каталога нет, то создается новый каталог, если все нормально, возвращается 0, при возникновении любой ошибки возвращается -1.

Пример:

Set Library To St_Denis Additive

* данная процедура создает несколько вложенных директорий, даже если ни одной из них не существовало
=fairdir('C:\tmp\tmp1\tmp2\tmp3')

Release Library St_Denis

procedure fairdir
** создает директорию (поддиректории), если их не существует
parameters tcDir
private all
* загружаем библиотеку если она не была загружена при входе в программу
IF .not. "ST_DENIS"$set("LIBRARY")
Set Library To St_Denis Additive
endif
pcDir = iif(.not.empty(justdrive(tcDir)), justdrive(tcDir), [])
pnCountDir = getwordcount(tcDir,[\])
for pnI = iif(.not.empty(justdrive(tcDir)), 2, 1) to pnCountDir
pcDir = pcDir +[\]+getwordnum(tcDir, pnI ,[\])
if empty(adir(paDir, pcDir ,[D]))
= MAKEDIR (pcDir) && библиотечная функция создает директорию
endif
endfor

Вы можете загрузить русскую версию данной библиотеки по адресу
ftp://ftp-developpez.com/nikiforov/udfs/st_denis_russian.zip