FoxPro/Visual FoxPro - copiar archivo de extexion "jpg"

   
Vista:

copiar archivo de extexion "jpg"

Publicado por blak (1 intervención) el 22/01/2012 02:00:46
si selecciono la extension de archivo correcto todo biem pero si la extencion no corresponde al "jpg" me da error como puedo comparar que en la carpeta que selecciono no se encuentra el archivo espesificado, espero la respuesta xf gracia....


ORIGEN = ALLTRIM(THISFORM.ORIGEN_entrada.VALUE)
DESTINO = ALLTRIM(THISFORM.TExt1.VALUE)


IF ORIGEN = "*.jpg"
COPY FILE ORIGEN + "*.jpg" TO DESTINO + "*.jpg"
MESSAGEBOX("Archivo de fotos copiado exitosamente....IMPORTANTE NO RENOMBRAR LAS CARPETA CREADA POR EL SISTEMA !!", 48, "INFORMACION")

ELSE
MESSAGEBOX("El formato no es compatible...seleccione una CARPETA que contenga FOTOS..!!!")
RETURN

ENDIF
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio

copiar archivo de extexion

Publicado por Mauricio (1367 intervenciones) el 22/01/2012 13:48:04
utiliza el GETFILE()
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar