FoxPro/Visual FoxPro - Crear Directorios

Hola amigos:
Pido ayuda para lo siguiente, Necesito crear carpetas dentro de cierta carpeta, ejm:

Carpeta raiz:
C:\SISTEMA>

Desearia crear ahi carpetas, algo asi
SIS_2004
SIS_2005
SIS_2006
mi_carpeta = sys(5)+"\SISTEMA\SIS_2007\"

IF DIRECTORY(mi_carpeta)
MD &mi_carpeta
ENDIF

Pero lo curioso es que dice que ya existe, sin existirlo, ayudenme amigos como le hago..

Saludos.

Hola amigos:
Nuevamente con mi pregunta. aun no he podido solcuinar esto.
O sera dificil.

Gracias por cualquier ayuda que se pueda dar.
Saludos.

CreateDirectory, RemoveDirectory

Permiten realizar acciones sobre directorios

API para Crear Directorio

DECLARE INTEGER CreateDirectory IN WIN32API ;
STRING cNewDir, ;
STRING cAttrib

tcDirName = "c:dav"

lnSuccess = CreateDirectory ( tcDirName, "")
lcRetVal = IIF( lnSuccess = 1, "Creado", "Fallo" )
Api para Eliminar Directorio

DECLARE INTEGER RemoveDirectory IN WIN32API ;
STRING cKillDir

tcDirName ="c:dav"

lnSuccess = RemoveDirectory( tcDirName)
lcRetVal = IIF( lnSuccess = 1, "Removed", "Failed" )

Declare long MakeSureDirectoryPathExists in "imagehlp.dll" string lpPath
MakeSureDirectoryPathExists("c:\este\es\unarbol\dedirecto\directorio")