Error en cGetFile o algo

[Ruben D. Fernandez]

Amigos:
Muestro una foto, que la primera vez no tiene nada.
Al pulsar enter va a un directorio para seleccionarla y
al hacer eso se va la aplicación.
Funciona ok en xP, NO FUNCIONA EN VISTA

Dejo aqui el código.

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.)


Agradezco cualquier ayuda.

Saludos y Gracias

Ruben Fernandez-