Eliminar mensaje que aparece al ejecutar una rutina

Hola Víctor: buenos días, te molesto esta vez para que por favor puedas ayudarme:
Cuando ejecuta esta rutina
use dbfgral
appen from ? Type xls
Me aparece la ventana ABRIR con los archivos *.xls para que elija que archivo deseo adicionar, pero si doy click en POR i cancelar me sale un mensaje "Archivo no existe"
Dime como podría evitar este mensaje si elijo cancelar.
Gracias

1 respuesta

Respuesta
1
No puedes evitarlo con el código que tienes, intenta:
Use dbfgral
cArchivo = GetFile("xls")
If cArchivo <> ""
     Append From (cArchivo) Type xls
EndIf
Esta Ok, Víctor, pero una ayuda más, en el ejemplo que me envías la variable
carchivo también tiene el nombre de la carpeta y lo que deseo solo es el nombre del archivo excel. Indicame como ghacerlo por favor
Gracias
Es decir
carchivo='C:\PRUEBA\DETALLA.XLS"
lo que deseo solo es:
carchivo='detalle.xls"
Gracias
La ruta en la variable no debe de afectar en modo alguno, confiriendo además integridad adicional, pero si no te interesa, intenta:
Use dbfgral
cArchivo = GetFile("xls")
If cArchivo <> ""
     cArchivo = SubStr( cArchivo, RAt( "\", cArchivo ) + 1 )
     Append From (cArchivo) Type xls
EndIf
Como siempre eres muy amable, gracias
Tenias razón no era necesario quitarle la ruta en la variable, cambie
If cArchivo <> ""    por  If len(alltrim(cArchivo)) <> 0
Y funciono.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas