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