FoxPro/Visual FoxPro - Crear directorio

Hola !!, queria saber la instruccion para crear un directorio con Visual FoxPro 8.

Prueba los comandos MD o MKDIR

Prueba los comandos MD o MKDIR

Y como haria para saber si ese directorio ya fue creado y si no crearlo ?

Para crearlos usarias los comandos que te di. Para saber si existe usas DIRECTORY()

Hola !!, tengo el siguiente codigo y no anda ¿ donde tengo el error ?
SET SAFETY Off
IF DIRECTORY(c:\backup)
COPY FILE e:\Nuevo-de-Analia\A-B-definitivo\BaseDeDatos\*.* to c:\backup
ELSE
MKDIR c:\backup
COPY FILE e:\Nuevo-de-Analia\A-B-definitivo\BaseDeDatos\*.* to c:\backup
endif

Proba asi:

SET SAFETY Off
IF !DIRECTORY("c:\backup")
MKDIR "c:\backup"
endif
COPY FILE "e:\Nuevo-de-Analia\A-B-definitivo\BaseDeDatos\*.*" to "c:\backup"

Si esto no te funciona puede ser que no estes usando los nombres correctos...

No me crea la carpera c:\backup y cuando ejecuto el programa con el Set Step on
me dice que el directorio ya esta creado, pero cuando voy ha ver con el explorador de windows la carpeta no esta.

No te puedo ayudar mucho...Lo que debes de hacer es probar los comandos desde la ventana de comandos del VFP. Primero, proba el DIRECTORY() (FIJATE EN LA COMILLAS QUE LES PONGO A LAS DIRECCIONES), es decir, proba que el comand funcione bien con carpetas existentes, despues probas con las carpetas de la app. Si el DIECTORY() no esta fallando, te vas al otro comando y empezas a copiar archivos de prueba hasta que estes segura que podes usar los comandos. Despues los pones en tu programa

Hola !!, tengo el siguiente codigo y no anda ¿ donde tengo el error ?
SET SAFETY Off
IF DIRECTORY(c:\backup)
COPY FILE e:\Nuevo-de-Analia\A-B-definitivo\BaseDeDatos\*.* to c:\backup
ELSE
MKDIR c:\backup
COPY FILE e:\Nuevo-de-Analia\A-B-definitivo\BaseDeDatos\*.* to c:\backup
endif

Hola !!, tengo el siguiente codigo y no anda ¿ donde tengo el error ?
SET SAFETY Off
IF DIRECTORY(c:\backup)
COPY FILE e:\Nuevo-de-Analia\A-B-definitivo\BaseDeDatos\*.* to c:\backup
ELSE
MKDIR c:\backup
COPY FILE e:\Nuevo-de-Analia\A-B-definitivo\BaseDeDatos\*.* to c:\backup
endif

porque cambia todo esas linea del programa por una sola linea en el viejo DOS:

!xcopy e:\Nuevo-de-Analia\A-B-definitivo\BaseDeDatos c:\backup /s

o

run !xcopy e:\Nuevo-de-Analia\A-B-definitivo\BaseDeDatos c:\backup /s

Podrás ejecutar tus comando de MS-DOS sin que se muestre la ventana negra del DOS.

En la variable cComando puedes colocar cualquier instrucción válida de MS-DOS que luego será ejecutada; Si deseas que la ventana sea visible solo cambia el último parámetro de a función ShellExecute y colócalo en 1

Declare Integer ShellExecute In shell32.Dll;
Integer hndWin, String cAction, String cFile,;
String cParams, String cDir, Integer nShow

cComando = "xcopy e:\Nuevo-de-Analia\A-B-definitivo\BaseDeDatos c:\backup /s"
cArchivo = GetEnv("TEMP") + "" + Sys(2015) + ".bat"

=StrToFile(cComando, cArchivo)
=ShellExecute(0,"Open",cArchivo,"","",0)

jesus cordero
Caracas Venezuela