FiveTech Software tech support forums

Amigos:

Este codigo funciona en xp y no funciona en vista
Se va la aplicacion cuando muestra
el cGetfile()...

FUNCTION OtroCopiarFotoRI()
Local cFileACopiar := cGetFile( "*.jpg", "Seleccione la foto" )
Local cDestino := "C:\Masterform\Fotos\"

cNombreFoto:= "I"+SubStr(irNroNuevo,-7)+".JPG"
cDestino := cDestino+cNombreFoto

IF !Empty(cFileACopiar)
COPYFILE( cFileACopiar, cDestino)
Endif

cNombreFoto:= cDestino

oImage:LoadBmp(cNombrefoto)

RETURN(.T.)


Muchas gracias

Ruben Fernandez