FoxPro/Visual FoxPro - messagebox

Hola programadores, necesito crear una carpeta pero antes verificar si existe, si no existe crea un con el nombre analizar_Xls, pero antes te debe enviar un mensaje para aceptar o cancelar, cuando presiono "cancelar" el FOX envia un menseja que dice "No coinciden los Datos" gracias de antemano por la ayuda

IF DIRECTORY ("C:\Analizar_Xls")
SELEC * from tabla1
EXPORT to "C:\Analizar_Xls\" type xls
ELSE
iF messagebox ("Presione aceptar para crear la carpeta Analizar_Xls...",4,"Crear Directorio")
MKDIR ("C:\Analizar_Xls")
SELEC * from cl EXPORT to "C:\Analizar_Xls\" type xls
ELSE
=messagebox ("No se completo la creacion de la carpeta Analizar_Xls",32,"Mensaje del Sistema")
ENDIF
ENDIF

Creo que tenias un error en el codigo.

Aqui te lo mando...

IF DIRECTORY ("C:\Analizar_Xls")
SELEC * from PATIENT
EXPORT to "C:\Analizar_Xls\" type xls
ELSE

IF 6=messagebox ("Presione aceptar para crear la carpeta Analizar_Xls...",1,"Crear Directorio")
MKDIR ("C:\Analizar_Xls")
SELEC * from PATIENT
EXPORT to "C:\Analizar_Xls\" type xls
ELSE
=messagebox ("No se completo la creacion de la carpeta Analizar_Xls",32,"Mensaje del Sistema")
ENDIF
ENDIF

Lo probe y funciono perfectamente

Victor

Hola nuevamente,

Olvide modificar correctamente el codigo que te envie.

El correcto es

IF DIRECTORY ("C:\Analizar_Xls")
SELEC * from PATIENT
EXPORT to "C:\Analizar_Xls\" type xls
ELSE

IF 1=messagebox ("Presione aceptar para crear la carpeta Analizar_Xls...",1,"Crear Directorio")
MKDIR ("C:\Analizar_Xls")
SELEC * from PATIENT
EXPORT to "C:\Analizar_Xls\" type xls
ELSE
=messagebox ("No se completo la creacion de la carpeta Analizar_Xls",32,"Mensaje del Sistema")
ENDIF
ENDIF

"If 1=" te cumple la sentencia dado por el parametro ,1, que esta despues del primer cierre de comillas...

Si es OK entonces cumple, sino , no se cumple.

En el codigo que te envie anteriormente puse

"If 6=" y este caso corresponde a "YES (Si)"....por eso no funcionaria. Tienes que poner siempre la condicion de acuerdo a TYPO que escoges la hacer la pregunta con messagebox.

Tambien puedes poner donde queda el cursor por DEFAULT en los botones...Predeterminadamente es el Primer Boton pero puedes modificarlo para que sea el segundo o tercer boton si los hubieran.

Es muy interesante esto de los parametros para MEssagebox.

Saludos,

Victor

Muy buena solucion amigo gracias.

Hola,

A la orden. Si, el asunto es saber qué quieres que aparezca en los botones del messagebox y asi saber las condiciones a cumplir "OK/Cancelar, Si/No,etc".

En el help de VFP puedes ver las opciones.

Victor