Hola.
debes usar una rutina para el manejo de errores de VFP, asi, despues de escribir el comando para saltar a una carpeta EJ.
ON ERROR DO tkerrhand WITH ;
ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
CD C:\DANI\EPSINOSA && salto al directorio
**enseguida escribes
ON ERROR
IF tknumerr = ####
TU CODIGO
ENDIF
este comando ejecuta la rutina de manejo de errores que tu ya escribiste, si la carpeta no existe, te generara un numero de error y tu con esa referencia podras tomar la decision que quieras
****rutina de manejo de errores que se escribira en la pag CODE
PROCEDURE tkerrhand
PARAMETER merror, mess, mess1, mprog, mlineno
CLEAR
*? 'Error number: ' + LTRIM(STR(merror))
tknumerr = val(LTRIM(STR(merror)))
*? 'Error message: ' + mess
*mensajerr = mess
*? 'Line of code with error: ' + mess1
*linearr = mess1
*? 'Line number of error: ' + LTRIM(STR(mlineno))
*lineanumrr = LTRIM(STR(mlineno))
*? 'Program with error: ' + mprog
*filerr = mprog
RETURN
SUERTE Y ME ESCRIBES SI TIENES DUDAS, PERO EL PROGRAMA FUNCIONA,,,AL IGUAL QUE EL PROGRAMA DE BUSQUEDA DINAMICA CON SQL
